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.38 -r1.39
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Apr 2009 08:01:33 -0000	1.38
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Apr 2009 20:33:19 -0000	1.39
@@ -455,7 +455,7 @@
 }
 
 # per default, deactivated
-if {0} {
+if {1} {
   if {[info command ::xo::ns_log] eq ""} {
     #
     # provide an XOTcl stub for ns_log
@@ -475,6 +475,10 @@
       catch {ds_comment "[self proc]: [join $args { }]"}
       ::xo::ns_log [self proc] [join $args " "]
     }
+    ::xo::DS instproc notice args {
+      catch {ds_comment "[self proc]: [join $args { }]"}
+      ::xo::ns_log [self proc] [join $args " "]
+    }
     ::ns_log mixin ::xo::DS
   }
 }