Index: tests/class-method.test
===================================================================
diff -u -N -r5a162b098b6a9550218646d470b274769bda8da1 -r27176223d73920ce2ab9450554c3051d2c020dfb
--- tests/class-method.test	(.../class-method.test)	(revision 5a162b098b6a9550218646d470b274769bda8da1)
+++ tests/class-method.test	(.../class-method.test)	(revision 27176223d73920ce2ab9450554c3051d2c020dfb)
@@ -11,9 +11,9 @@
     :public object method f args {next}
   }
   ? {::C class mixins set M1} \
-      "method 'class' unknown for ::C; consider '::C create class mixins set M1' instead of '::C class mixins set M1'"
+      "method 'class' unknown for ::C; in order to create an instance of class ::C, consider using '::C create class ?/option/ /value/ ...?'"
   ? {::C class filter f} \
-      "method 'class' unknown for ::C; consider '::C create class filter f' instead of '::C class filter f'"
+      "method 'class' unknown for ::C; in order to create an instance of class ::C, consider using '::C create class ?/option/ /value/ ...?'"
 
   ? {lsort [::C info object methods]} "f"
   ? {lsort [::C info]} \
@@ -59,7 +59,7 @@
   ? {::C class info slots} "::C::per-object-slot::v2 ::C::per-object-slot::p"
   
   ? {::C pm1} \
-      "method 'pm1' unknown for ::C; consider '::C create pm1 ' instead of '::C pm1 '"
+      "method 'pm1' unknown for ::C; in order to create an instance of class ::C, consider using '::C create pm1 ?/option/ /value/ ...?'"
   ? {::C foo} "pm1"
   ? {::C a} "pm1"
   ? {::C fwd} "pm1"
Index: tests/destroy.test
===================================================================
diff -u -N -r2330f518acadf0b6cd31df48cf7c062026159677 -r27176223d73920ce2ab9450554c3051d2c020dfb
--- tests/destroy.test	(.../destroy.test)	(revision 2330f518acadf0b6cd31df48cf7c062026159677)
+++ tests/destroy.test	(.../destroy.test)	(revision 27176223d73920ce2ab9450554c3051d2c020dfb)
@@ -1056,7 +1056,7 @@
   # Delete the proc and call "new" again
   #
   rename ::nsf::classes::nx::Class::new ""
-  ? {A new} "method 'new' unknown for ::A; consider '::A create new ' instead of '::A new '"
+  ? {A new} "method 'new' unknown for ::A; in order to create an instance of class ::A, consider using '::A create new ?/option/ /value/ ...?'"
   
   #
   # Restore the original state
Index: tests/methods.test
===================================================================
diff -u -N -r4b78042d08af7f3200d51f4033d5164c949f332d -r27176223d73920ce2ab9450554c3051d2c020dfb
--- tests/methods.test	(.../methods.test)	(revision 4b78042d08af7f3200d51f4033d5164c949f332d)
+++ tests/methods.test	(.../methods.test)	(revision 27176223d73920ce2ab9450554c3051d2c020dfb)
@@ -157,7 +157,7 @@
 
 # class level setter
 nx::test case class-object-level-setter {
-  ? {C plain_object_setter 1} {method 'plain_object_setter' unknown for ::C; consider '::C create plain_object_setter 1' instead of '::C plain_object_setter 1'}
+  ? {C plain_object_setter 1} {method 'plain_object_setter' unknown for ::C; in order to create an instance of class ::C, consider using '::C create plain_object_setter ?/option/ /value/ ...?'}
   #? {C plain_object_setter 1} "1"
   ? {C public_object_setter set 2} "2"
   ? {catch {C protected_object_setter set 3}} 1
@@ -431,10 +431,10 @@
 
   ? {C A set 2} 2
   ? {C A get} 2
-  ? {C B} {method 'B' unknown for ::C; consider '::C create B ' instead of '::C B '}
+  ? {C B} {method 'B' unknown for ::C; in order to create an instance of class ::C, consider using '::C create B ?/option/ /value/ ...?'}
   #? {C B} B2
   ? {C C get} C2
-  ? {C D} "method 'D' unknown for ::C; consider '::C create D ' instead of '::C D '"
+  ? {C D} {method 'D' unknown for ::C; in order to create an instance of class ::C, consider using '::C create D ?/option/ /value/ ...?'}
 
   nx::Object create o {
     set x [:object property -accessor public a]
@@ -552,7 +552,7 @@
   ? {C protected Object method bar {x} {return $x}} \
       "'Object' is not a method defining method"
   ? {C Object method bar {x} {return $x}} \
-      {method 'Object' unknown for ::C; consider '::C create Object method bar x {return $x}' instead of '::C Object method bar x {return $x}'}
+      {method 'Object' unknown for ::C; in order to create an instance of class ::C, consider using '::C create Object ?/option/ /value/ ...?'}
   #? {C public object Object method bar {x} {return $x}} "'Object' not allowed to be modified by 'class'"
   #? {C public object Object method bar {x} {return $x}} \
       {'Object' is not a method defining method}
Index: tests/protected.test
===================================================================
diff -u -N -r275da34d3d7a874a451eced58242b738c8a37d1a -r27176223d73920ce2ab9450554c3051d2c020dfb
--- tests/protected.test	(.../protected.test)	(revision 275da34d3d7a874a451eced58242b738c8a37d1a)
+++ tests/protected.test	(.../protected.test)	(revision 27176223d73920ce2ab9450554c3051d2c020dfb)
@@ -842,12 +842,12 @@
   }
 
   ? {C a get} a1
-  ? {C b get} {method 'b' unknown for ::C; consider '::C create b get' instead of '::C b get'}
-  ? {C c get} {method 'c' unknown for ::C; consider '::C create c get' instead of '::C c get'}
+  ? {C b get} {method 'b' unknown for ::C; in order to create an instance of class ::C, consider using '::C create b ?/option/ /value/ ...?'}
+  ? {C c get} {method 'c' unknown for ::C; in order to create an instance of class ::C, consider using '::C create c ?/option/ /value/ ...?'}
 
   ? {C foo a} a1
   ? {C foo b} b1
-  ? {C foo c} {method 'c' unknown for ::C; consider '::C create c get' instead of '::C c get'}
+  ? {C foo c} {method 'c' unknown for ::C; in order to create an instance of class ::C, consider using '::C create c ?/option/ /value/ ...?'}
 
   ? {C bar a} a1
   ? {C bar b} b1
Index: tests/tcloo.test
===================================================================
diff -u -N -r275da34d3d7a874a451eced58242b738c8a37d1a -r27176223d73920ce2ab9450554c3051d2c020dfb
--- tests/tcloo.test	(.../tcloo.test)	(revision 275da34d3d7a874a451eced58242b738c8a37d1a)
+++ tests/tcloo.test	(.../tcloo.test)	(revision 27176223d73920ce2ab9450554c3051d2c020dfb)
@@ -264,8 +264,8 @@
     :class unexport create new
   }
 
-  ? {AbstractQueue new} {method 'new' unknown for ::AbstractQueue; consider '::AbstractQueue create new ' instead of '::AbstractQueue new '}
-  ? {AbstractQueue create aQueue} {method 'create' unknown for ::AbstractQueue; consider '::AbstractQueue create create aQueue' instead of '::AbstractQueue create aQueue'}
+  ? {AbstractQueue new} {method 'new' unknown for ::AbstractQueue; in order to create an instance of class ::AbstractQueue, consider using '::AbstractQueue create new ?/option/ /value/ ...?'}
+  ? {AbstractQueue create aQueue} {method 'create' unknown for ::AbstractQueue; in order to create an instance of class ::AbstractQueue, consider using '::AbstractQueue create create ?/option/ /value/ ...?'}
   
 }