Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -N -r1.153.2.42 -r1.153.2.43
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	4 Nov 2021 16:11:27 -0000	1.153.2.42
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	28 Dec 2021 15:51:44 -0000	1.153.2.43
@@ -1871,20 +1871,13 @@
 
     # Check if any relevant header is already present - in this case
     # don't touch anything.
-    set modify_p 1
-
-    if { [ns_set ifind $headers "cache-control"] > -1
-         || [ns_set ifind $headers "expires"] > -1 } {
+    if {
+        [ns_set ifind $headers "cache-control"] > -1
+        || [ns_set ifind $headers "expires"] > -1
+        || [string tolower [ns_set iget $headers "pragma"]] eq "no-cache"
         set modify_p 0
     } else {
-        for { set i 0 } { $i < [ns_set size $headers] } { incr i } {
-            if { [string tolower [ns_set key $headers $i]] eq "pragma"
-                 && [string tolower [ns_set value $headers $i]] eq "no-cache"
-             } {
-                set modify_p 0
-                break
-            }
-        }
+        set modify_p 1
     }
 
     # Set three headers, to be sure it won't get cached. If you are in