Index: openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl	26 Apr 2018 08:56:37 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl	9 May 2018 15:33:28 -0000	1.7
@@ -219,7 +219,7 @@
 	@creation-date 11/2000
 
     } {
-	set pieces {}
+	set pieces [list]
 	foreach triple $attr_list {
 	    set table [string toupper [string trim [lindex $triple 0]]]
 	    set attr [string toupper [string trim [lindex $triple 1]]]
@@ -246,7 +246,7 @@
 	@creation-date 11/2000
 
     } {
-	set the_list {}
+	set the_list [list]
 	foreach row $attr_list {
 	    lappend the_list [list [lindex $row 1] [lindex $row 3]]
 	}
@@ -264,7 +264,7 @@
 	@creation-date 11/2000
 
     } {
-	set pieces {}
+	set pieces [list]
 	foreach row $pairs {
 	    set attr [string trim [lindex $row 0]]
 	    set attr_value [string trim [lindex $row 1]]
@@ -292,7 +292,7 @@
 
     } {
 	set ignore [string toupper $ignore]
-	set this_columns {}
+	set this_columns [list]
 	set table_name [string toupper [string trim $table_name]]
 	foreach triple $attr_list {
 	    set table [string toupper [string trim [lindex $triple 0]]]