Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	4 Jun 2007 12:30:36 -0000	1.19
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	17 Jun 2007 09:47:36 -0000	1.20
@@ -294,16 +294,26 @@
     my instvar form_parameter
     #array set form_parameter [ns_set array [ns_getform]]
     foreach {att value} [ns_set array [ns_getform]] {
+      if {[info exists form_parameter($att)]} {
+        my set form_parameter_multiple($att) 1
+      }
       lappend form_parameter($att) $value
     }
   }
   ConnectionContext instproc form_parameter {name {default ""}} {
-    my instvar form_parameter
+    my instvar form_parameter form_parameter_multiple
     if {![info exists form_parameter]} {
       my get_all_form_parameter
     }
-    return [expr {[info exists form_parameter($name)] ? 
-                  $form_parameter($name) : $default}]
+    if {[info exists form_parameter($name)]} {
+      if {[info exists form_parameter_multiple($name)]} {
+        return $form_parameter($name)
+      } else {
+        return [lindex $form_parameter($name) 0]
+      }
+    } else {
+      return $default
+    }
   }
   ConnectionContext instproc exists_form_parameter {name} {
     my instvar form_parameter
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.112 -r1.113
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Jun 2007 13:45:06 -0000	1.112
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	17 Jun 2007 09:47:36 -0000	1.113
@@ -1022,7 +1022,6 @@
   Page instproc create-new {} {
     my instvar package_id
     set folder_id [my parent_id]
-    my log "--new [::xo::cc array get form_parameter]"
     set name [::xo::cc form_parameter name]
     set name [my complete_name $name]
     set name [::$package_id normalize_name $name]
@@ -1117,8 +1116,8 @@
     if {$form ne ""} {
       array set __ia [my set instance_attributes]
       # we have a form, we get for the time being all variables
-      foreach {att value}  [::xo::cc array get form_parameter] {
-        set __ia($att) $value
+      foreach att [::xo::cc array names form_parameter] {
+        set __ia($att) [::xo::cc form_parameter $att]
       }
       #my log "--set instance attributes to [array get __ia]"
       my set instance_attributes [array get __ia]