Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	20 Sep 2007 11:57:04 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	24 Sep 2007 12:04:26 -0000	1.6
@@ -673,7 +673,8 @@
 
   ##################################
 
-  ::xo::db::CrClass create ::xo::db::CrItem -superclass ::xo::db::Object \
+  ::xo::db::CrClass create ::xo::db::CrItem \
+      -superclass ::xo::db::Object \
       -table_name cr_revisions -id_column revision_id \
       -object_type content_revision \
       -slots {
@@ -957,9 +958,9 @@
     set __atts  [list creation_user]
     set __vars $__atts
 
-    my log "db_slots for $__class: [$__class array get db_slot]"
+    #my log "db_slots for $__class: [$__class array get db_slot]"
     foreach {__slot_name __slot} [$__class array get db_slot] {
-      my log "--slot = $__slot"
+      #my log "--slot = $__slot"
       if {
 	  $__slot eq "::xo::db::Object::slot::object_title" ||
 	  $__slot eq "::xo::db::CrItem::slot::name"