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.5 -r1.6
--- openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	7 Jul 2011 10:46:02 -0000	1.5
+++ openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	27 Oct 2014 16:39:46 -0000	1.6
@@ -58,8 +58,8 @@
 	# For each real arg, append default or supplied arg value
 	set pieces [list]
 	foreach row $real_args {
-	    set arg_name [lindex $row 0]
-	    set arg_default [lindex $row 1]
+	    lassign $row arg_name arg_default
+
 	    if { [info exists user_supplied($arg_name)] } {
 		lappend pieces "${prepend}$user_supplied($arg_name)"
 	    } else {
@@ -154,7 +154,7 @@
 		set default ""
 	    } else {
 		if { [string index $dft 0] eq "'" } {
-		    set dft [string range $dft 1 [expr {[string length $dft] - 2}]]
+		    set dft [string range $dft 1 [string length $dft]-2]
 		}
 		set default ";${dft}"
 	    }