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.23 -r1.10.2.24
--- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	5 Jan 2022 13:09:37 -0000	1.10.2.23
+++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	5 Jan 2022 14:16:48 -0000	1.10.2.24
@@ -58,19 +58,7 @@
             if {[::nsf::is integer $specifiedSize]} {
                 set size $specifiedSize
             } else {
-                if {[acs::icanuse ns_baseunit]} {
-                    set size [ns_baseunit -size $specifiedSize]
-                } else {
-                    #
-                    # Rough approximation for older versions of NaviServer.
-                    #
-                    if {[regexp {^(\d+)([mk])b} [string tolower $specifiedSize] . amount unit]} {
-                        set multipliers {k 1024 m 1048576}
-                        set size [expr {[dict get $multipliers $unit] * $amount}]
-                    } else {
-                        error "invalid size specification '$specifiedSize'"
-                    }
-                }
+                set size [ns_baseunit -size $specifiedSize]
             }
             return $size
         }