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.8 -r1.9
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	17 Nov 2006 21:29:17 -0000	1.8
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Apr 2007 13:04:00 -0000	1.9
@@ -60,7 +60,7 @@
   ;
 }
 
-::xotcl::Object instproc log msg {
+::xotcl::Object instproc __timediff {} {
   set now [ns_time get]
   if {[ns_conn isconnected]} {
     set start_time [ns_conn start]
@@ -77,13 +77,20 @@
   } else {
     set diff ""
   }
-  ns_log notice "$msg, [self] [self callingclass]->[self callingproc] (${ms}ms$diff)"
   set ::__last_timestamp $now
+  return "${ms}ms$diff"
 }
 
+::xotcl::Object instproc log msg {
+  ns_log notice "$msg, [self] [self callingclass]->[self callingproc] ([my __timediff])"
+}
+
 ::xotcl::Object instproc debug msg {
   ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"
 }
+::xotcl::Object instproc msg msg {
+  util_user_message -message "$msg, [self] [self callingclass]->[self callingproc] ([my __timediff])"
+}
 
 namespace eval ::xo {
   Class Timestamp