Index: openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	26 Apr 2018 08:56:37 -0000	1.8
+++ openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	9 May 2018 15:33:28 -0000	1.9
@@ -22,7 +22,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]]
 	}
@@ -56,7 +56,7 @@
 	}
 
 	# For each real arg, append default or supplied arg value
-	set pieces {}
+	set pieces [list]
 	foreach row $real_args {
 	    lassign $row arg_name arg_default
 
@@ -97,7 +97,7 @@
 	@creation-date 11/2000
 
     } {
-	set pieces {}
+	set pieces [list]
 	set arg_num 0
 	foreach triple $attr_list {
 	    incr arg_num
@@ -118,7 +118,7 @@
 	@creation-date 07/2001
 
     } {
-	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]]]
@@ -146,7 +146,7 @@
 	@creation-date 07/2001
 
     } {
-	set pieces {}
+	set pieces [list]
 	foreach triple $attr_list {
 	    set attr  [string trim [lindex $triple 1]]
 	    set dft   [string trim [lindex $triple 2]]