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.139 -r1.140
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	28 Mar 2008 21:55:02 -0000	1.139
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	31 Mar 2008 12:48:25 -0000	1.140
@@ -871,13 +871,20 @@
     {-disable_input_fields 0}
   } {
     my instvar page_template doc root package_id
-    
     ::xowiki::Form requireFormCSS
-    
+
     set form [my get_form]
     set anon_instances [my get_from_template anon_instances]
     #my msg anon_instances=$anon_instances
     #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>"
+      }
+    }
 
     set field_names [my field_names -form $form]
     set form_fields [my create_form_fields $field_names]