Index: tests/interceptor-slot.tcl
===================================================================
diff -u -re548a952433b4d26794f535995c9ed1ababe8807 -rd56697c9bad9703c7d627479b80201ab9cfee09e
--- tests/interceptor-slot.tcl	(.../interceptor-slot.tcl)	(revision e548a952433b4d26794f535995c9ed1ababe8807)
+++ tests/interceptor-slot.tcl	(.../interceptor-slot.tcl)	(revision d56697c9bad9703c7d627479b80201ab9cfee09e)
@@ -53,11 +53,11 @@
 # adding, removing per-object mixins for classes through slot
 # "object-mixin"
 #
-C object-mixin M
-? {C info precedence} "::M ::nx::Class ::nx::Object"
-? {C object info mixin} "::M"
-C object-mixin ""
-? {C info precedence} "::nx::Class ::nx::Object"
+# C object-mixin M
+# ? {C info precedence} "::M ::nx::Class ::nx::Object"
+# ? {C object info mixin} "::M"
+# C object-mixin ""
+# ? {C info precedence} "::nx::Class ::nx::Object"
 
 #
 # add and remove object mixin for classes via modifier "object" and
@@ -96,7 +96,7 @@
 ? {C info precedence} "::M ::nx::Class ::nx::Object"
 
 # forwarder with 0 arguments + flag
-? {C object-mixin} "::M"
+? {C object mixin} "::M"
 
 puts stderr "==================== XOTcl"
 package require XOTcl