Index: tests/object-system.xotcl =================================================================== diff -u -r91e9b1a3b1c3e60a8538156b4aa37d5a664d5133 -rf209c50ea8cb651d0dea25206301e45202217797 --- tests/object-system.xotcl (.../object-system.xotcl) (revision 91e9b1a3b1c3e60a8538156b4aa37d5a664d5133) +++ tests/object-system.xotcl (.../object-system.xotcl) (revision f209c50ea8cb651d0dea25206301e45202217797) @@ -7,6 +7,7 @@ # since even class Test might not work at that time. # proc ? {cmd expected {msg ""}} { + #puts "??? $cmd" set r [uplevel $cmd] if {$msg eq ""} {set msg $cmd} if {$r ne $expected} {