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 -N -r1.68 -r1.69
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	21 Dec 2012 22:56:33 -0000	1.68
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	13 Apr 2013 08:39:08 -0000	1.69
@@ -759,6 +759,9 @@
       }
     }
   }
+  ::xo::broadcast proc blueprint {cmd} {
+    ns_eval ${cmd}\n::xo::at_cleanup
+  }
   ::xo::broadcast proc clear {} {
     catch {nsv_unset broadcast [ns_thread id]}
   }