Index: tests/mixinoftest.xotcl
===================================================================
diff -u -r8076a9474c34a6690da9109e353ee7dcea190ea5 -rab458c36e113c61d73756a960d97a30ea12834e4
--- tests/mixinoftest.xotcl	(.../mixinoftest.xotcl)	(revision 8076a9474c34a6690da9109e353ee7dcea190ea5)
+++ tests/mixinoftest.xotcl	(.../mixinoftest.xotcl)	(revision ab458c36e113c61d73756a960d97a30ea12834e4)
@@ -61,4 +61,33 @@
 ? {A info instmixinof} ""
 ? {c1 info precedence} "::C ::xotcl::Object"
 
+# the following destroy crashes
 A destroy
+C destroy 
+c1 destroy
+
+###########################################
+# testing simple per class mixins with redefinition
+###########################################
+Class A
+Class B -instmixin A
+Class C -superclass B
+C c1
+? {B instmixin} ::A
+? {B info instmixin} ::A
+? {A info instmixinof} ::B
+? {c1 info precedence} "::A ::C ::B ::xotcl::Object"
+
+Class B -instmixin A
+? {B instmixin} ::A
+? {B info instmixin} ::A
+? {A info instmixinof} ::B
+? {c1 info precedence} "::A ::C ::B ::xotcl::Object"
+
+B destroy
+? {A info instmixinof} ""
+? {c1 info precedence} "::C ::xotcl::Object"
+
+A destroy
+C destroy 
+c1 destroy
\ No newline at end of file