Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -N -reb758924a74f48512c98a40a539ab0c4e5a35de9 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision eb758924a74f48512c98a40a539ab0c4e5a35de9)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55)
@@ -760,31 +760,12 @@
 ? [list $p currentbudget] 98
 ? [list $p fullbudget 200] 200
 ? [list $p currentbudget] 199
-exit
 
-foreach o [Object allinstances] {
-  if {[$o isclass]} continue
-  if {[$o istype Slot]} continue
-  if {$o eq "::xotcl::relmgr"} continue
-  set string "$o\n"
-  foreach v [$o info vars] {
-    append string "   $v = [$o set $v]\n"
-  }
-  puts $string
-}
 
-puts stderr DONE-[p1 name]-[p1 age]
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End:
 
-p3 age 77
-
-
-
-
-exit
-
-puts [XoXML asXML]
-
-puts ====
-foreach n [XoXML selectNodes {//object[age > 1]}]  {puts [$n asXML]}
-
-exit