Index: tests/mixinoftest.tcl
===================================================================
diff -u -re548a952433b4d26794f535995c9ed1ababe8807 -r513f795175db0329e73b1c7d14fb73255d62235a
--- tests/mixinoftest.tcl	(.../mixinoftest.tcl)	(revision e548a952433b4d26794f535995c9ed1ababe8807)
+++ tests/mixinoftest.tcl	(.../mixinoftest.tcl)	(revision 513f795175db0329e73b1c7d14fb73255d62235a)
@@ -95,7 +95,7 @@
 Class create M2
 Class create X
 Class create A -mixin {M1 M2 X}
-A mixinguard M1 "test"
+A mixin guard M1 "test"
 Class create B -superclass A
 ? {A info mixin M2} ::M2
 ? {A info mixin M*} "::M1 ::M2"