Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.79 -r1.80
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	5 Jul 2007 10:51:03 -0000	1.79
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	14 Jul 2007 17:59:08 -0000	1.80
@@ -1308,7 +1308,7 @@
     set object_name [expr {[$data exists name] ? [$data set name] : ""}]
     #my log "-- $data, cl=[$data info class] [[$data info class] object_type]"
     
-    my log "--e [my name] final fields [my fields]"
+    #my log "--e [my name] final fields [my fields]"
     set exports [list [list object_type $object_type] \
                      [list folder_id $folder_id] \
                      [list __object_name $object_name]]