Index: tests/contains.test
===================================================================
diff -u -r59e100d383b22ea1407f5e5c40e303f2c6bb9027 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55
--- tests/contains.test	(.../contains.test)	(revision 59e100d383b22ea1407f5e5c40e303f2c6bb9027)
+++ tests/contains.test	(.../contains.test)	(revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55)
@@ -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"
 
@@ -89,7 +90,7 @@
 C public method foo {{-new 0} name value} { return $value}
 catch {c1 foo -name a b} errMsg
 ? {set errMsg} \
-    {invalid argument 'b', maybe too many arguments; should be "::c1 foo ?-new value? name value"}
+    {invalid argument 'b', maybe too many arguments; should be "::c1 foo ?-new /value/? /name/ /value/"}
 
 # Test resolving of implicit namespaces in relationcmds (here
 # superclass) in the nx namespace.
@@ -99,7 +100,7 @@
 
   #puts stderr =====1
   set c [Class create C -superclass Class {
-    :class method foo {} {;}
+    :object method foo {} {;}
   }]
   ? {set c} ::C
 
@@ -109,7 +110,11 @@
   #puts stderr =====3
 }
 
-puts ====NX
+#
+# Forget and reload nx
+#
+
+#puts ====NX-[package versions nx]-[set auto_path]
 package forget nx
 package req nx
 
@@ -140,4 +145,10 @@
 C1 create c1
 C1 create c1
 
-#puts stderr ===EXIT
\ No newline at end of file
+puts stderr "====EXIT [info script]"
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: