Index: tests/interceptor-slot.xotcl
===================================================================
diff -u -rc74faac63d3cf530ab8fee0fb2bb2226a107cd31 -rc495d1832cbd2bf781a8994aa983f1d35dd05bbd
--- tests/interceptor-slot.xotcl	(.../interceptor-slot.xotcl)	(revision c74faac63d3cf530ab8fee0fb2bb2226a107cd31)
+++ tests/interceptor-slot.xotcl	(.../interceptor-slot.xotcl)	(revision c495d1832cbd2bf781a8994aa983f1d35dd05bbd)
@@ -36,9 +36,9 @@
 ? {c1 info precedence} "::C ::xotcl2::Object"
 c1 mixin add M
 ? {::xotcl::relation c1 mixin} ::M
-? {catch {c1 mixin UNKNWON}} 1
-# after an error in mixin, the list is reset to empty. Wanted?
-? {::xotcl::relation c1 mixin} ""
+? {catch {c1 mixin UNKNOWN}} 1
+? {::xotcl::relation c1 mixin} "::M"
+# add again the same mixin
 c1 mixin add M
 ? {c1 info precedence} "::M ::C ::xotcl2::Object"
 c1 mixin add M2
@@ -64,9 +64,8 @@
 C mixin -per-object add M 
 ? {C info precedence} "::M ::xotcl2::Class ::xotcl2::Object"
 ? {::xotcl::relation C -per-object mixin} ::M
-# is the following wanted?
-? {catch {C mixin -per-object add UNKNWON}} 1
-? {::xotcl::relation C -per-object mixin} ""
+? {catch {C mixin -per-object add UNKNOWN}} 1
+? {::xotcl::relation C -per-object mixin} "::M"
 C mixin -per-object ""
 ? {C info precedence} "::xotcl2::Class ::xotcl2::Object"