Index: openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/db-proc-test-procs.tcl,v
diff -u -r1.1.2.27 -r1.1.2.28
--- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	23 Aug 2022 11:10:22 -0000	1.1.2.27
+++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	21 Feb 2023 10:49:37 -0000	1.1.2.28
@@ -134,6 +134,14 @@
                 lappend results [lsort [array get things]]
             }
         aa_equals "db_foreach with four columns" "{a a1 b b1 c {c 1} d d1}" $results
+
+        set results ""
+        db_foreach query {select * from (values ('a1','b1','c 1','d1')) as X(a,b,c,d)} \
+            -column_set set_things {
+                lappend results [lsort [ns_set array $set_things]]
+            }
+        aa_equals "db_foreach with four columns" "{a a1 b b1 c {c 1} d d1}" $results
+
     }
 
 aa_register_case \