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.63 -r1.64
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	18 May 2007 09:01:22 -0000	1.63
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	18 May 2007 22:08:06 -0000	1.64
@@ -1153,7 +1153,7 @@
     return [$data set item_id]
   }
   Form instproc edit_data {} {
-    my log "--- edit_data ---"
+    #my log "--- edit_data --- setting form vars=[my form_vars]"
     my instvar data
     foreach __var [my form_vars] {
       $data set $__var [my var $__var]