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.27 -r1.28
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	7 Aug 2017 23:47:57 -0000	1.27
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	25 Apr 2018 19:23:26 -0000	1.28
@@ -145,7 +145,7 @@
     @return 0 on failure, 1 on success.
     @author Neophytos Demetriou
 } {
-    set arguments [list]
+    set arguments {}
     set docblock {}
 
     set proc_name [acs_sc_generate_name $contract $impl $operation]
@@ -226,7 +226,7 @@
 	    set full_statement [join $full_statement]
 	}
 	PLPGSQL {
-	    set args_list [list]
+	    set args_list {}
 	    for {set __i 0} {$__i < [llength $arguments]} {incr __i} {
 		lappend args_list "\$[lindex $arguments $__i]"
 	    }