Index: tests/testx.xotcl
===================================================================
diff -u -r7cb7c751d63fe0eece5756910e3f0b18e61a4d16 -r8d4f0d69f9586bdafbffa45b0368b84b86169bca
--- tests/testx.xotcl	(.../testx.xotcl)	(revision 7cb7c751d63fe0eece5756910e3f0b18e61a4d16)
+++ tests/testx.xotcl	(.../testx.xotcl)	(revision 8d4f0d69f9586bdafbffa45b0368b84b86169bca)
@@ -616,14 +616,13 @@
       }
       set filterResult ""
       B b
-puts stderr ====b-created
+
       ::errorCheck $filterResult "" \
 	    "Filter guard: Filter never to be applied + filter inheritance on this filter"
       # filter w/o guard -> has to be applied
       A instfilter f1
-puts stderr ====b-instfilter-set
       b destroy
-puts stderr ====b-destroyed2
+
       set filterResult ""
       B b
       # TODO: with tcl85stack, we get here 
@@ -2644,9 +2643,7 @@
     X proc do5 {{-arg1 d3} {arg2 d4}} {puts "$arg1 $arg2"}
     X instproc do6 {{-arg1 d3} {arg2 d4}} {puts "$arg1 $arg2"}
 
-puts stderr "**** call copy Y"
     X copy Y
-    puts stderr "**** copy to Y done (nonpos)"
 
     ::errorCheck [lsort [X info procs]] "do0 do1 do2 do3 do4 do5" "check procs to be copied"
     ::errorCheck [lsort [Y info procs]] "do0 do1 do2 do3 do4 do5" "check copied procs"