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.63.2.6 -r1.63.2.7
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	18 Aug 2014 12:39:02 -0000	1.63.2.6
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	10 Nov 2014 19:02:16 -0000	1.63.2.7
@@ -465,23 +465,23 @@
   #     next
   #   }
 
+  ConnectionContext instproc load_form_parameter_from_values {values} {
+    foreach {att value} $values {
+      # For some unknown reasons, Safari 3.* returns sometimes
+      # entries with empty names... We ignore these for now
+      if {$att eq ""} continue
+      if {[my exists form_parameter($att)]} {
+        my set form_parameter_multiple($att) 1
+      }
+      my lappend form_parameter($att) $value
+    }
+  }
 
   ConnectionContext instproc load_form_parameter {} {
-    my instvar form_parameter
-
     if {[ns_conn isconnected] && [ns_conn method] eq "POST"} {
-      #array set form_parameter [ns_set array [ns_getform]]
-      foreach {att value} [ns_set array [ns_getform]] {
-        # For some unknown reasons, Safari 3.* returns sometimes
-        # entries with empty names... We ignore these for now
-        if {$att eq ""} continue
-        if {[info exists form_parameter($att)]} {
-          my set form_parameter_multiple($att) 1
-        }
-        lappend form_parameter($att) $value
-      }
+      my load_form_parameter_from_values [ns_set array [ns_getform]]
     } else {
-      array set form_parameter {}
+      my array set form_parameter {}
     }
   }