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 -N -r1.33.2.1 -r1.33.2.2
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	19 Mar 2008 11:35:51 -0000	1.33.2.1
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	19 Mar 2008 13:17:51 -0000	1.33.2.2
@@ -373,7 +373,7 @@
 #   }
 
 
-  ConnectionContext instproc get_all_form_parameter {} {
+  ConnectionContext instproc load_form_parameter {} {
     my instvar form_parameter
     if {[ns_conn isconnected]} {
       #array set form_parameter [ns_set array [ns_getform]]
@@ -393,7 +393,7 @@
   ConnectionContext instproc form_parameter {name {default ""}} {
     my instvar form_parameter form_parameter_multiple
     if {![info exists form_parameter]} {
-      my get_all_form_parameter
+      my load_form_parameter
     }
     if {[info exists form_parameter($name)]} {
       if {[info exists form_parameter_multiple($name)]} {
@@ -408,10 +408,13 @@
   ConnectionContext instproc exists_form_parameter {name} {
     my instvar form_parameter
     if {![info exists form_parameter]} {
-      my get_all_form_parameter
+      my load_form_parameter
     }
     my exists form_parameter($name)
   }
+  ConnectionContext instproc get_all_form_parameter {} {
+    return [my array get form_parameter]
+  }
   
   ConnectionContext instproc set_parameter {name value} {
     my set perconnectionparam($name) $value