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.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 } }