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.226 -r1.227
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	2 Apr 2009 12:12:24 -0000	1.226
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	3 Apr 2009 14:58:16 -0000	1.227
@@ -812,7 +812,7 @@
     Get the values from the form and store it as
     instance attributes.
   } {
-    #my msg "get_form_data [self] [my name]"
+    #my msg "get_form_data [self] [my name] [self args]"
     set validation_errors 0
     set category_ids [list]
     array set containers [list]
@@ -825,6 +825,7 @@
 
     if {![info exists field_names]} {
       set field_names [$cc array names form_parameter]
+      #my msg "form-params=[$cc array get form_parameter]"
     }
     #my msg "fields $field_names, "
 
@@ -1224,7 +1225,7 @@
       # Since we have no form, we create it on the fly
       # from the template variables and the form field specifications.
       #
-      set form "<FORM></FORM>"
+      set form "<form></form>"
       set formgiven 0
     } else {
       set formgiven 1