Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl,v
diff -u -N -r1.29 -r1.30
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	9 May 2018 10:11:45 -0000	1.29
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	9 May 2018 15:33:28 -0000	1.30
@@ -145,7 +145,7 @@
     @return 0 on failure, 1 on success.
     @author Neophytos Demetriou
 } {
-    set arguments {}
+    set arguments [list]
     set docblock {}
 
     set proc_name [acs_sc_generate_name $contract $impl $operation]
@@ -228,7 +228,7 @@
 	    set full_statement [join $full_statement]
 	}
 	PLPGSQL {
-	    set args_list {}
+	    set args_list [list]
 	    for {set __i 0} {$__i < [llength $arguments]} {incr __i} {
 		lappend args_list "\$[lindex $arguments $__i]"
 	    }