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.69 -r1.70
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	13 Apr 2013 08:39:08 -0000	1.69
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	13 Apr 2013 09:33:02 -0000	1.70
@@ -760,6 +760,9 @@
     }
   }
   ::xo::broadcast proc blueprint {cmd} {
+    foreach t [::xotcl::THREAD info instances] {
+      $t do eval $cmd
+    }
     ns_eval ${cmd}\n::xo::at_cleanup
   }
   ::xo::broadcast proc clear {} {