Executive: support OSSTEST_TCL_JOBDB_DEBUG - fix db-execute-array really

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index b612527249148b7860ece6c93283bcfb2e6e5211..ad13cbdf4d8411fb8601206ce5bec1dd04810ddb 100644 (file)
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -125,7 +125,7 @@ proc db-execute {stmt} {
     db-execute-debug $stmt
     uplevel 1 [list pg_execute dbh $stmt]
 }
-proc db-execute-array {stmt arrayvar args} {
+proc db-execute-array {arrayvar stmt args} {
     db-execute-debug $stmt
     uplevel 1 [list pg_execute -array $arrayvar dbh $stmt] $args
 }