Index: tests/tcloo.test
===================================================================
diff -u -r444d4e11acbb7c83427d35d1f69833d0ec8da8fe -rb2ab5886fc3278e549bb2772dfce921fbd06a9e9
--- tests/tcloo.test	(.../tcloo.test)	(revision 444d4e11acbb7c83427d35d1f69833d0ec8da8fe)
+++ tests/tcloo.test	(.../tcloo.test)	(revision b2ab5886fc3278e549bb2772dfce921fbd06a9e9)
@@ -47,7 +47,7 @@
 			  ::nsf::methods::${scope}::info::method handle $m]
     if {$methodHandle eq ""} {
       set methodHandle [::nsf::method::create $current {*}[expr {$perObject?"-per-object":""}] $m args {
-	if {[::nsf::current next] eq ""} {
+	if {[::nsf::current nextmethod] eq ""} {
 	  return -code error "[::nsf::current]: unable to dispatch method '[::nsf::current method]'"
 	}
 	::nsf::next