Index: openacs-4/packages/dbm/tcl/dbm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dbm/tcl/dbm-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dbm/tcl/dbm-procs.tcl	25 Apr 2018 19:47:47 -0000	1.2
+++ openacs-4/packages/dbm/tcl/dbm-procs.tcl	9 May 2018 15:33:30 -0000	1.3
@@ -11,7 +11,7 @@
 } {
     Simple procedure to create options for dropdown menu
 } {
-    set opts {}
+    set opts [list]
     if {!$no_empty_option_p} {
         set opts [linsert $opts 0 ""]
     }
@@ -37,7 +37,7 @@
 } {
     A simple proc to highlight sql
 } {
-    set result {}
+    set result [list]
 
     regsub -all {([^ \n\t]+)} $sql {\0} sql
     set sql [split $sql " "]
@@ -169,7 +169,7 @@
     @author Nima Mazloumi
     @creation-date 2005-08-24
 } {
-    set fields {}
+    set fields [list]
 
     set count [llength $elements]