Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.80 -r1.81
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	27 Apr 2009 20:33:19 -0000	1.80
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	28 Apr 2009 14:33:27 -0000	1.81
@@ -1141,7 +1141,7 @@
 
     if {![my exists sql_package_name]} {
       set sql_package_name [self]
-      my log "-- sql_package_name of [self] is '$sql_package_name'"
+      #my log "-- sql_package_name of [self] is '$sql_package_name'"
     }
     if {[string length $sql_package_name] > 30} {
       error "SQL package_name '$sql_package_name' can be maximal 30 characters long!\