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.1 -r1.25.2.2
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	18 Jun 2008 06:51:18 -0000	1.25.2.1
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Jun 2008 08:45:26 -0000	1.25.2.2
@@ -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"