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.20 -r1.21
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	28 Jun 2007 13:01:07 -0000	1.20
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	13 Jul 2007 16:45:29 -0000	1.21
@@ -134,7 +134,7 @@
   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])"
+  util_user_message -message "$msg  ([self] [self callingclass]->[self callingproc])"
 }
 ::xotcl::Object instproc qn query_name {
   set qn "dbqd.[my uplevel self class]-[my uplevel self proc].$query_name"
@@ -284,7 +284,7 @@
     foreach {name cmd} [array get ::xo::cleanup] {
       #::trace remove variable ::xotcl_cleanup($name) unset ::xo::cleanup
       if {![::xotcl::Object isobject $name]} {
-        ns_log notice "--D $name already destroyed, nothing to do"
+        #ns_log notice "--D $name already destroyed, nothing to do"
         continue
       }
       if {$name eq "::xo::cc"} {