Index: openacs-4/packages/acs-tcl/tcl/pools-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/pools-init.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/pools-init.tcl	8 May 2018 22:37:18 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/pools-init.tcl	3 Sep 2024 15:37:34 -0000	1.9
@@ -18,10 +18,7 @@
 
     if {"$poolSet" ne ""} {
 
-        set poolSize [ns_set size $poolSet]
-        for {set i 0} {$i < $poolSize} {incr i} {
-            set poolName [ns_set key $poolSet $i]
-            set poolDescription [ns_set value $poolSet $i]
+        foreach {poolName poolDescription} [ns_set array $poolSet] {
             set poolConfigSection "ns/server/[ns_info server]/pool/$poolName"
             set poolConfigSet [ns_configsection $poolConfigSection]
             if {"$poolConfigSet" eq ""} {