Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	8 Jun 2007 11:59:07 -0000	1.16
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	8 Jun 2007 17:32:24 -0000	1.17
@@ -198,11 +198,8 @@
     # "ns_ictl oncleanup" is called after variables are deleted
     if {[ns_ictl epoch] == 0} {
       ns_ictl oncleanup ::xo::at_cleanup
-      ns_ictl oninit ::xo::at_init
+      ns_ictl oninit [list ns_atclose ::xo::at_close]
     }
-    proc ::xo::at_init {} {
-      ns_atclose ::xo::at_close
-    }
     
 #     proc trace_cleanup {args} {
 #       set name [lindex $args 1]