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.26 -r1.27
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	17 Jun 2008 18:58:25 -0000	1.26
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Jun 2008 08:43:34 -0000	1.27
@@ -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"