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.25 -r1.26
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Sep 2007 10:40:05 -0000	1.25
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	17 Jun 2008 18:58:25 -0000	1.26
@@ -169,9 +169,14 @@
 ::xotcl::Object instproc debug msg {
   ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"
 }
-::xotcl::Object instproc msg msg {
+::xotcl::Object instproc msg {{-html false} msg} {
   if {[ns_conn isconnected]} {
-    util_user_message -message "$msg  ([self] [self callingclass]->[self callingproc])"
+    set msg "$msg  ([self] [self callingclass]->[self callingproc])"
+    if {$html} {
+        util_user_message -html -message $msg
+    } else {
+      util_user_message -message $msg
+    }
   }
 }
 ::xotcl::Object instproc qn query_name {