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 {}
     }
   }
 
Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -r1.1.2.7 -r1.1.2.8
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	10 Sep 2014 14:55:45 -0000	1.1.2.7
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	10 Nov 2014 19:02:15 -0000	1.1.2.8
@@ -719,8 +719,9 @@
              __form_redirect_method __none \
              __action_$action_name $action_name]
     #ns_log notice "call_action pushed form_param to $cc: [$cc array get form_parameter]"
-    $cc array set form_parameter $attributes
 
+    $cc load_form_parameter_from_values $attributes
+
     $package_id set object "[$package_id folder_path -parent_id [$object parent_id]][$object name]"
     
     #my log "call_action calls:   ::$package_id invoke -method edit -batch_mode 1 // obj=[$package_id set object]"