Index: openacs-4/packages/assessment/tcl/as-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-list-procs.tcl,v
diff -u -r1.12.2.1 -r1.12.2.2
--- openacs-4/packages/assessment/tcl/as-list-procs.tcl	14 Feb 2019 16:15:01 -0000	1.12.2.1
+++ openacs-4/packages/assessment/tcl/as-list-procs.tcl	28 Dec 2021 10:57:01 -0000	1.12.2.2
@@ -26,10 +26,9 @@
         # Process search items
         set paramlist [list]
         if { [set form [rp_getform]] ne "" } {
-            array set formarr [util_ns_set_to_list -set $form]
             set paramlist [list]
 
-            foreach param [array names formarr] {
+            foreach param [ns_set keys $form] {
                 if { [regexp -nocase {^as_item_id_(\d+)$} $param match one_item_id] } {
                     lappend paramlist ${param}:multiple
                 }
@@ -52,10 +51,9 @@
         # Process search items
         set as_item_ids [list]
         if { [set form [rp_getform]] ne "" } {
-            array set formarr [util_ns_set_to_list -set $form]
             set paramlist [list]
 
-            foreach param [array names formarr] {
+            foreach param [ns_set keys $form] {
             if { [regexp -nocase {^as_item_id_(\d+)$} $param match one_item_id] } {
                 lappend as_item_ids $one_item_id
             }