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.75.2.33 -r1.75.2.34
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	8 Feb 2022 16:28:05 -0000	1.75.2.33
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	4 Mar 2022 15:24:59 -0000	1.75.2.34
@@ -596,10 +596,14 @@
     }
   }
 
-  ConnectionContext instproc form_parameter {name {default ""}} {
+  ConnectionContext instproc require_form_parameter {} {
     if {![info exists :form_parameter]} {
       :load_form_parameter
     }
+  }
+
+  ConnectionContext instproc form_parameter {name {default ""}} {
+    :require_form_parameter
     if {[info exists :form_parameter($name)]} {
       if {[info exists :form_parameter_multiple($name)]} {
         return [set :form_parameter($name)]
@@ -611,12 +615,11 @@
     }
   }
   ConnectionContext instproc exists_form_parameter {name} {
-    if {![info exists :form_parameter]} {
-      :load_form_parameter
-    }
+    :require_form_parameter
     info exists :form_parameter($name)
   }
   ConnectionContext instproc get_all_form_parameter {} {
+    :require_form_parameter
     return [array get :form_parameter]
   }