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.21 -r1.22
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	13 Jul 2007 16:45:29 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Jul 2007 20:52:16 -0000	1.22
@@ -134,7 +134,9 @@
   ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"
 }
 ::xotcl::Object instproc msg msg {
-  util_user_message -message "$msg  ([self] [self callingclass]->[self callingproc])"
+  if {[ns_conn isconnected]} {
+    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"