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.1 -r1.2
--- openacs-4/packages/dbm/tcl/dbm-procs.tcl	7 Jun 2006 10:43:18 -0000	1.1
+++ openacs-4/packages/dbm/tcl/dbm-procs.tcl	25 Apr 2018 19:47:47 -0000	1.2
@@ -11,7 +11,7 @@
 } {
     Simple procedure to create options for dropdown menu
 } {
-    set opts [list]
+    set opts {}
     if {!$no_empty_option_p} {
         set opts [linsert $opts 0 ""]
     }
@@ -37,7 +37,7 @@
 } {
     A simple proc to highlight sql
 } {
-    set result [list]
+    set result {}
 
     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 [list]
+    set fields {}
 
     set count [llength $elements]