Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.162 -r1.163
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	5 Sep 2008 17:18:23 -0000	1.162
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	6 Sep 2008 15:05:19 -0000	1.163
@@ -1012,7 +1012,7 @@
       $f render_input
     }
   }
-
+  
   FormPage instproc edit {
     {-validation_errors ""}
     {-disable_input_fields 0}
@@ -1021,18 +1021,16 @@
     ::xowiki::Form requireFormCSS
 
     set form [my get_form]
-    set anon_instances [my get_from_template anon_instances]
-    #my msg anon_instances=$anon_instances
+    set anon_instances [my get_from_template anon_instances f]
     #my msg form=$form
-    if {$anon_instances eq ""} {
-      set form_id [my get_form_id]
-      if {![$form_id istype ::xowiki::Form]} {
-        # TODO should we use _anon_instances?
-        set anon_instances [my property anon_instances]
-        set form "<FORM>[lindex [$form_id set text] 0]</FORM>"
-      }
-    }
+    #my msg anon_instances=$anon_instances
 
+    # The following code should be obsolete
+    # set form_id [my get_form_id]
+    # if {![$form_id istype ::xowiki::Form]} {
+    #   set form "<FORM>[lindex [$form_id set text] 0]</FORM>"
+    # }
+
     set field_names [my field_names -form $form]
     set form_fields [my create_form_fields $field_names]