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.94.6.3 -r1.94.6.4
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	14 Feb 2014 18:20:45 -0000	1.94.6.3
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	31 Jul 2014 13:36:19 -0000	1.94.6.4
@@ -170,6 +170,7 @@
   
   Form ad_instproc generate {
     {-template "formTemplate"}
+    {-mode "edit"}
     {-export}
   } {
     the method generate is used to actually generate the form template
@@ -192,7 +193,7 @@
                      [list __object_name $object_name]] 
     if {[info exists export]} {foreach pair $export {lappend exports $pair}}
 
-    ad_form -name [my name] -form [my fields] \
+    ad_form -name [my name] -form [my fields] -mode $mode \
         -export $exports -action [my action] -html [my html]
 
     set new_data            "set item_id \[[self] new_data\]"