Index: openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl,v
diff -u -r1.10.2.41 -r1.10.2.42
--- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	14 May 2023 23:14:45 -0000	1.10.2.41
+++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	3 Feb 2024 08:26:32 -0000	1.10.2.42
@@ -598,7 +598,7 @@
             return [uplevel 1 [list $cache $operation {*}$args]]
         } else {
             if {$operation eq "eval"} {
-                nsf::parseargs {{-partition_key} {-expires:integer} key command} $args
+                nsf::parseargs {{-partition_key} {-expires:integer} {-per_request:switch} key command} $args
                 ns_log warning "no cache $cache: need direct call $key $args"
                 #ns_log warning "no cache $cache: need direct call $key [info exists partition_key] <$command>"
                 return [uplevel 1 $command]