Executive: support OSSTEST_TCL_JOBDB_DEBUG - fix

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index 23fd5848aec95fdcf5b9e2e1792a4a8576f4eac6..611e95484804860869c3ec227d494047f7964aca 100644 (file)
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -123,11 +123,11 @@ proc db-execute-debug {stmt} {
 }
 proc db-execute {stmt} {
     db-execute-debug $stmt
-    uplevel 1 pg_execute dbh $stmt
+    uplevel 1 [list pg_execute dbh $stmt]
 }
 proc db-execute-array {stmt arrayvar} {
     db-execute-debug $stmt
-    uplevel 1 pg_execute -array $arrayvar dbh $stmt
+    uplevel 1 [list pg_execute -array $arrayvar dbh $stmt]
 }
 
 proc lock-tables {tables} {