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 -N -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	12 Nov 2018 20:15:42 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	17 Nov 2018 16:37:16 -0000	1.9
@@ -235,7 +235,7 @@
             # Tcl_Obj dynamically the fly (type string). Caching the
             # cache structure in the dynamic Tcl_Obj can't not work.
             #
-            return [lindex ${:partitions_names} [expr {$key % ${:partitions}}]]
+            return [lindex ${:partition_names} [expr {$key % ${:partitions}}]]
 	}
 
 	:public method init {} {
@@ -257,8 +257,9 @@
 	    # number from some partition_key.
 	    #
 	    set size [expr {[:get_size] / ${:partitions}}]
+            set :partition_names {}
 	    for {set i 0} {$i < ${:partitions}} {incr i} {
-                lappend :partitions_names ${:name}-$i                
+                lappend :partition_names ${:name}-$i                
 		:cache_create ${:name}-$i $size
 	    }
 	}