Index: tests/parameters.xotcl
===================================================================
diff -u -rb1f416527fc1e567ff1db9ad5a720b3bbc5678ee -r29267f0c9db8387f58b03ffc124fc138ad88e463
--- tests/parameters.xotcl	(.../parameters.xotcl)	(revision b1f416527fc1e567ff1db9ad5a720b3bbc5678ee)
+++ tests/parameters.xotcl	(.../parameters.xotcl)	(revision 29267f0c9db8387f58b03ffc124fc138ad88e463)
@@ -21,16 +21,24 @@
   Object create o1
   Class create C -parameter {a {b:boolean} {c 1}}
   C create c1 
+  Class create M
+  c1 mixin M
 
   ? {::xotcl::valuecheck object o1} 1
   ? {::xotcl::valuecheck integer 1} 1
   ? {::xotcl::is o1 object} 1
   ? {::xotcl::is c1 type C} 1
-  ? {::xotcl::is2 object o1} 1
-  ? {::xotcl::is2 integer 1} 1
-  ? {::xotcl::is2 type c1 C} 1
-  ? {::xotcl::is2 type o C} 0
-
+  ? {::xotcl::is2 c1 object -type C} 1
+  ? {::xotcl::is2 c1 object -hasmixin M -type C} 1
+  ? {::xotcl::is2 c1 object -hasmixin M1 -type C} 0
+  ? {::xotcl::is2 c1 object -hasmixin M -type C0} 0
+  ? {::xotcl::is2 o1 object} 1
+  ? {::xotcl::is2 1 integer} 1
+  ? {::xotcl::is2 c1 type C} 1
+  ? {::xotcl::is2 o type C} 0
+  ? {::xotcl::is2 o object -type C} 0
+  ? {::xotcl::is2 o object -hasmixin C} 0
+#exit
   ? {::xotcl::valuecheck class o1} {expected class but got "o1" for parameter value}
   ? {::xotcl::valuecheck -nocomplain class o1} 0
   ? {::xotcl::valuecheck class Test} 1