tcl: do not keep db connection open while step is running

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index eb64a4bd030155a25d07401e371bf5476e675168..fdabd53a7217e57da0d74e9212ad063569e1f9c8 100644 (file)
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -159,6 +159,7 @@ proc spawn-step-begin {flight job ts stepnovar} {
         db-close
        error $emsg $ei $ec
     }
+    db-close
 }
 
 proc spawn-step-commit {flight job stepno testid} {
@@ -172,8 +173,6 @@ proc spawn-step-commit {flight job stepno testid} {
                   AND stepno=$stepno
         "
     }
-
-    db-close
 }
 
 proc step-set-status {flight job stepno st} {