Index: library/xotcl/tests/testx.xotcl
===================================================================
diff -u -N -r35c0d6ecb3c83cc6d6b0dfe251ba1a0d9071dc30 -r4b9ddd1b06ce34fd352791fcae53ad91a79b43ce
--- library/xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision 35c0d6ecb3c83cc6d6b0dfe251ba1a0d9071dc30)
+++ library/xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision 4b9ddd1b06ce34fd352791fcae53ad91a79b43ce)
@@ -261,7 +261,7 @@
     a set x 1
     a check all
   }
-  ::errorCheck $err {assertion failed check: {$x == 1} in proc 'xTo2'} \
+  ::errorCheck $err {assertion failed check: {$x == 1} in proc 'set'} \
     "inheritance a xTo2"
 
   if {![catch {a yTo2} err]} {
@@ -280,7 +280,7 @@
     b set x 1
     b check all
   }
-  ::errorCheck $err {assertion failed check: {$x == 1} in proc 'xTo2'} \
+  ::errorCheck $err {assertion failed check: {$x == 1} in proc 'set'} \
     "inheritance b xTo2"
 
   if {![catch {b yTo2} err]} {