Index: openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl,v
diff -u -r1.16.2.7 -r1.16.2.8
--- openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl	3 Oct 2021 17:15:15 -0000	1.16.2.7
+++ openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl	28 Dec 2021 14:18:14 -0000	1.16.2.8
@@ -165,9 +165,9 @@
         set dbn_pools [list]
         set the_set [ns_configsection $config_path]
         if { $the_set ne "" } {
-            for {set i 0} {$i < [ns_set size $the_set]} {incr i} {
-                if { [string tolower [ns_set key $the_set $i]] ==  "availablepool" } {
-                    lappend dbn_pools [ns_set value $the_set $i]
+            foreach {key value} [ns_set array $the_set] {
+                if { [string tolower $key] == "availablepool" } {
+                    lappend dbn_pools $value
                 }
             }
         }