Index: tests/contains.test
===================================================================
diff -u -N -ra24e1f836c3126d0a0e9467bde3a9fa8da901711 -rb4266efa283e86989f6f09f3938f41f173580400
--- tests/contains.test	(.../contains.test)	(revision a24e1f836c3126d0a0e9467bde3a9fa8da901711)
+++ tests/contains.test	(.../contains.test)	(revision b4266efa283e86989f6f09f3938f41f173580400)
@@ -3,7 +3,7 @@
 
 #
 # Intentionally, we do not want to make a "namespace import" in this
-# test file.
+# test file. Run this file via a pure tclsh!
 #
 namespace path nx
 
@@ -105,19 +105,20 @@
 package require XOTcl
 
 ########################################################################
+# trigger the call of "cleanup" to work via method dispatch
+::xotcl::Object create o1
+o1 proc cleanup {} {return}
+
+########################################################################
 #
 # Test that we do not allow to mix object systems within the intrinsic
 # classes of an object. Otherwise we would have problems with the
 # recreate "C0 create c0". On a recreate of c0 the object system for
 # C0 is ::xotcl, therefore we try to call recreate. In the C0 class
 # hierarchy is from nx and contains no "recreate" method.
 
-# trigger the call of "cleanup" to work via method dispatch
-::xotcl::Object create o1
-o1 proc cleanup {} {return}
-
 ? {catch {::xotcl::Class create C0 -superclass ::nx::Object} errorMsg} 1
-? {set ::errorMsg} {class "::C0" has different object system as class  "::nx::Object"}
+? {set ::errorMsg} {class "::C0" has a different object system as class  "::nx::Object"}
 ::nx::Class create C1 -superclass ::nx::Object
 
 #C0 create c0