Index: openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	13 Jul 2007 16:44:38 -0000	1.7
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	14 Jul 2007 17:59:08 -0000	1.8
@@ -221,7 +221,7 @@
 	set initcmd [ns_ictl get]
       }
       append initcmd [my set initcmd]
-      ns_log notice "INIT $initcmd"
+      #ns_log notice "INIT $initcmd"
       ::thread::send $tid $initcmd
     } else {
       set tid [nsv_get [self class] [self]]
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]]