Index: tests/tcl86.test
===================================================================
diff -u -r6cbb838340f985cc250def919416069f3d43e0df -r1aecbfc509cbbcf0861cffb65f980b3d78ee3dc5
--- tests/tcl86.test	(.../tcl86.test)	(revision 6cbb838340f985cc250def919416069f3d43e0df)
+++ tests/tcl86.test	(.../tcl86.test)	(revision 1aecbfc509cbbcf0861cffb65f980b3d78ee3dc5)
@@ -12,7 +12,7 @@
   nx::Object create ::numbers {
     # set instance variable used in coroutine
     set :delta 2
-    :public method ++ {} {
+    :public object method ++ {} {
       yield
       set i 0
       while 1 {
@@ -219,15 +219,15 @@
     set :delta 100
 
     # Define a standard map function based on apply
-    :public method map {lambda values} {
+    :public object method map {lambda values} {
       set result {}
       foreach value $values {
 	lappend result [:apply $lambda $value]
       }
       return $result
     }
 
-    :method foo {x} {return $x-$x}
+    :object method foo {x} {return $x-$x}
   }
 
   # Two examples from the apply man page
@@ -247,5 +247,4 @@
   # Test case calling own method via apply
   ? {o map {x {:foo $x}} {hello world}} \
       "hello-hello world-world"
-}
-
+}
\ No newline at end of file