Index: tests/tcloo.test
===================================================================
diff -u -r8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf -rc4997e0189bb712287aa53d12bb3e332acfb781d
--- tests/tcloo.test	(.../tcloo.test)	(revision 8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf)
+++ tests/tcloo.test	(.../tcloo.test)	(revision c4997e0189bb712287aa53d12bb3e332acfb781d)
@@ -44,7 +44,7 @@
   set scope [expr {$perObject?"object":"class"}]
   foreach m $args {
     set methodHandle [::nsf::dispatch $current \
-			  ::nsf::methods::${scope}::info::method handle $m]
+			  ::nsf::methods::${scope}::info::method registrationhandle $m]
     if {$methodHandle eq ""} {
       set methodHandle [::nsf::method::create $current {*}[expr {$perObject?"-per-object":""}] $m args {
 	if {[::nsf::current nextmethod] eq ""} {