Index: tests/tcloo.test
===================================================================
diff -u -r5ce68a42506fcc981cea2431afa1b09b476e667a -rf858f142f5fab4f88996b3eb709c3afa55114be9
--- tests/tcloo.test	(.../tcloo.test)	(revision 5ce68a42506fcc981cea2431afa1b09b476e667a)
+++ tests/tcloo.test	(.../tcloo.test)	(revision f858f142f5fab4f88996b3eb709c3afa55114be9)
@@ -91,7 +91,7 @@
   #
   
   set o [nx::Object new]
-  $o method Foo {} { return [::nsf::current method]} 
+  $o object method Foo {} { return [::nsf::current method]} 
   ? [list $o Foo] "$o: unable to dispatch method 'Foo'"
   ? [list $o eval {:Foo}] Foo
   $o export Foo
@@ -164,7 +164,7 @@
 
   nx::Object create bran {
     :export foo
-    :public method foo {} {return ok}
+    :public object method foo {} {return ok}
   }
 
   ? {bran foo} ok
@@ -191,7 +191,7 @@
   # oo.test/oo-4.2)
   #
   set o [nx::Object new]
-  $o public method foo {} { return [::nsf::current method]} 
+  $o public object method foo {} { return [::nsf::current method]} 
   ? [list $o foo] foo
   ? [list $o eval {:foo}] foo
   $o unexport foo