Index: tests/contains.test
===================================================================
diff -u -r59e100d383b22ea1407f5e5c40e303f2c6bb9027 -rf858f142f5fab4f88996b3eb709c3afa55114be9
--- tests/contains.test	(.../contains.test)	(revision 59e100d383b22ea1407f5e5c40e303f2c6bb9027)
+++ tests/contains.test	(.../contains.test)	(revision f858f142f5fab4f88996b3eb709c3afa55114be9)
@@ -2,6 +2,7 @@
 package prefer latest
 package require nx
 
+
 #
 # Intentionally, we do not want to make a "namespace import" in this
 # test file. Run this file via a pure tclsh!
@@ -78,7 +79,7 @@
 C create c2 {
   set :s [self]
   set :c [current]
-  :public method bar {} {return "[set :s]-[set :c]"}
+  :public object method bar {} {return "[set :s]-[set :c]"}
 }
 ? {c2 bar} "::c2-::c2"
 
@@ -99,7 +100,7 @@
 
   #puts stderr =====1
   set c [Class create C -superclass Class {
-    :class method foo {} {;}
+    :object method foo {} {;}
   }]
   ? {set c} ::C