Index: tests/tcloo.test
===================================================================
diff -u -rb2ab5886fc3278e549bb2772dfce921fbd06a9e9 -r8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf
--- tests/tcloo.test	(.../tcloo.test)	(revision b2ab5886fc3278e549bb2772dfce921fbd06a9e9)
+++ tests/tcloo.test	(.../tcloo.test)	(revision 8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf)
@@ -43,7 +43,7 @@
 nsf::proc methodExport {current {-perObject:switch false} {-callProtected:switch false} args} {
   set scope [expr {$perObject?"object":"class"}]
   foreach m $args {
-    set methodHandle [::nsf::object::dispatch $current \
+    set methodHandle [::nsf::dispatch $current \
 			  ::nsf::methods::${scope}::info::method handle $m]
     if {$methodHandle eq ""} {
       set methodHandle [::nsf::method::create $current {*}[expr {$perObject?"-per-object":""}] $m args {
@@ -77,7 +77,7 @@
 nx::Class create ExportUnexportUtil {
   :public method class {what args} {
     if {$what in {export unexport}} {
-      return [::nsf::object::dispatch [current] ::nsf::classes::nx::Object::$what {*}$args]
+      return [::nsf::dispatch [current] ::nsf::classes::nx::Object::$what {*}$args]
     }
     ::nsf::next
   }