Index: library/lib/test.xotcl
===================================================================
diff -u -r2c178b51df714386e72cfcb05f89c89995668b2d -r4d21376ac1245e34cb5a5f52da893072f311d3a9
--- library/lib/test.xotcl	(.../test.xotcl)	(revision 2c178b51df714386e72cfcb05f89c89995668b2d)
+++ library/lib/test.xotcl	(.../test.xotcl)	(revision 4d21376ac1245e34cb5a5f52da893072f311d3a9)
@@ -55,6 +55,7 @@
       if {[info exists arg]} {
         foreach o [Object info instances -closure] {set pre_exist($o) 1}
         namespace eval :: [list [self] eval $arg]
+        #:eval $arg
         foreach o [Object info instances -closure] {
           if {[info exists pre_exist($o)]} continue
           #puts "must destroy $o"