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.2.2 -r1.25.2.3
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Jun 2008 08:45:26 -0000	1.25.2.2
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	20 Jun 2008 08:25:41 -0000	1.25.2.3
@@ -75,7 +75,7 @@
       if {[regexp {^::([^:]+)::} $object_type _ head]} {
 	set tail [namespace tail $object_type]
 	set pretty_name "#$head.$tail-$name#"
-	#my log "--created pretty_name = $pretty_name"
+	my log "--created pretty_name = $pretty_name"
       } else {
 	error "Cannot determine automatically message key for pretty name. \
 		Use namespaces for classes"
@@ -169,14 +169,9 @@
 ::xotcl::Object instproc debug msg {
   ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"
 }
-::xotcl::Object instproc msg {{-html false} msg} {
+::xotcl::Object instproc msg msg {
   if {[ns_conn isconnected]} {
-    set msg "$msg  ([self] [self callingclass]->[self callingproc])"
-    if {$html} {
-        util_user_message -html -message $msg
-    } else {
-      util_user_message -message $msg
-    }
+    util_user_message -message "$msg  ([self] [self callingclass]->[self callingproc])"
   }
 }
 ::xotcl::Object instproc qn query_name {