Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.147 -r1.189.2.148
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	12 Sep 2022 16:32:35 -0000	1.189.2.147
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	13 Sep 2022 09:27:25 -0000	1.189.2.148
@@ -3661,9 +3661,17 @@
     -key:required
     -id:required
 } {
+    Flushes the filesystem cache.
+
+    @param key the key used to name the directory where the disk cache
+               is stored.
+    @param id the id used to name the file where the disk cache is
+              stored.
+
+    @see util::disk_cache_eval
 } {
-    set dir [ad_tmpdir]/$key
-    foreach file [flib -nocomplain $dir/$id-*] {
+    set dir [ad_tmpdir]/oacs-cache/$key
+    foreach file [glob -nocomplain $dir/$id-*] {
         file delete -- $file
         ns_log notice "FLUSH file delete -- $file"
     }