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.18 -r1.19
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	25 May 2007 10:14:14 -0000	1.18
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	4 Jun 2007 12:30:36 -0000	1.19
@@ -60,7 +60,7 @@
         set att_value [ns_urldecode [lindex $name_value_pair 1]]
       }
       if {[info exists (-$att_name)]} {
-        set passed_args(-$att_name) $att_value
+        lappend passed_args(-$att_name) $att_value
       } elseif {$all_from_query} {
         set queryparm($att_name) $att_value
       }
@@ -290,19 +290,25 @@
     #my log "--qp my exists $name => [my exists queryparm($name)]"
     my exists queryparm($name)
   }
-
+  ConnectionContext instproc get_all_form_parameter {} {
+    my instvar form_parameter
+    #array set form_parameter [ns_set array [ns_getform]]
+    foreach {att value} [ns_set array [ns_getform]] {
+      lappend form_parameter($att) $value
+    }
+  }
   ConnectionContext instproc form_parameter {name {default ""}} {
     my instvar form_parameter
     if {![info exists form_parameter]} {
-      array set form_parameter [ns_set array [ns_getform]]
+      my get_all_form_parameter
     }
     return [expr {[info exists form_parameter($name)] ? 
                   $form_parameter($name) : $default}]
   }
   ConnectionContext instproc exists_form_parameter {name} {
     my instvar form_parameter
     if {![info exists form_parameter]} {
-      array set form_parameter [ns_set array [ns_getform]]
+      my get_all_form_parameter
     }
     my exists form_parameter($name)
   }