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.29 -r1.75.2.30
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	7 Feb 2022 13:23:17 -0000	1.75.2.29
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	8 Feb 2022 15:15:21 -0000	1.75.2.30
@@ -88,7 +88,7 @@
       array set caller_param $caller_parameters
 
       foreach param [array names caller_param] {
-        if {"-$param" in $declared_parameters} {
+        if {[string range $param 1 end] in $declared_parameters} {
           dict set passed_args $param $caller_param($param)
         } elseif {$all_from_caller} {
           set name [string range $param 1 end]