tcl: fixes following merge/reorg

diff --git a/sg-execute-flight b/sg-execute-flight
index 81dc1dbd7f5a6e3432527309acceaec9cf8d2b3d..7dc3e8eb2aa96f49f045a0fd1e2356c44abccb0d 100755 (executable)
--- a/sg-execute-flight
+++ b/sg-execute-flight
@@ -189,7 +189,7 @@ proc main_iteration {} {
             pass - fail - broken - blocked {
             }
             queued - preparing - running {
-                job-set-status-unlocked $flight $job broken
+                jobdb::job-set-status-unlocked $flight $job broken
                 if {$exitok} {
                     error "job $flight.$job runner exited 0\
                        but left job status $jobinfo(status)"