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.70 -r1.71
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	13 Apr 2013 09:33:02 -0000	1.70
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	28 May 2013 12:56:28 -0000	1.71
@@ -635,10 +635,11 @@
       # likely to be changed frequently on a production system. The
       # alternative, a server restart, is even more expensive.
       #
-      set blueprint [ns_ictl get]
-      set last [string last "\n::xo::ns_log_redirector_manager" $blueprint]
-      if {$last > -1} { set blueprint [string range $blueprint 0 [expr {$last-1}]]}
-      ns_ictl save "$blueprint\n::xo::ns_log_redirector_manager set_level $value"
+      ns_eval [list ::xo::ns_log_redirector_manager set_level $value]
+      #set blueprint [ns_ictl get]
+      #set last [string last "\n::xo::ns_log_redirector_manager" $blueprint]
+      #if {$last > -1} { set blueprint [string range $blueprint 0 [expr {$last-1}]]}
+      #ns_ictl save "$blueprint\n::xo::ns_log_redirector_manager set_level $value"
     }
   }
 }