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.7 -r1.8
--- openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	7 Aug 2017 23:47:58 -0000	1.7
+++ openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	26 Apr 2018 08:56:37 -0000	1.8
@@ -22,7 +22,7 @@
 	@creation-date 11/2000
 
     } {
-	set the_list [list]
+	set the_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 [list]
+	set pieces {}
 	foreach row $real_args {
 	    lassign $row arg_name arg_default
 
@@ -97,7 +97,7 @@
 	@creation-date 11/2000
 
     } {
-	set pieces [list]
+	set pieces {}
 	set arg_num 0
 	foreach triple $attr_list {
 	    incr arg_num
@@ -118,7 +118,7 @@
 	@creation-date 07/2001
 
     } {
-	set pieces [list]
+	set pieces {}
 	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 [list]
+	set pieces {}
 	foreach triple $attr_list {
 	    set attr  [string trim [lindex $triple 1]]
 	    set dft   [string trim [lindex $triple 2]]