Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -3499,33 +3499,29 @@
 							 (equal? x "PREQ_FAIL"))
 						       all-curr-statuses))
                             (num-non-completes (length non-completes))
                             (newstate          (cond
 						((> running 0)           "RUNNING")            ;; anything running, call the situation running
-                                                ;;((> (length preq-fails) 0)                                                ;; "NOT_STARTED")
+                                                ((> (length preq-fails) 0)
+                                                 "NOT_STARTED")
 						((> bad-not-started 0)   "COMPLETED")          ;; we have an ugly situation, it is completed in the sense we cannot do more.
 						((> num-non-completes 0) (car non-completes))  ;;  (remove (lambda (x)(equal? "COMPLETED" x)) all-curr-states))) ;; only rollup DELETED if all DELETED
 						(else                    (car all-curr-states))))
 			                       ;; (if (> running 0)
                                                ;;     "RUNNING"
                                                ;;     (if (> bad-not-started 0)
                                                ;;         "COMPLETED"
                                                ;;         (car all-curr-states))))
-                            ;; (newstatus         (cond
-                            ;;                     ;;((> (length preq-fails) 0)
-                            ;;                     ;; "PREQ_FAIL")
-                            ;;                     ((or (> bad-not-started 0)
-                            ;;                          (and (equal? newstate "NOT_STARTED")
-                            ;;                               (> num-non-completes 0)))
-                            ;;                      "STARTED")
-                            ;;                     (else
-                            ;;                      (car all-curr-statuses)))))
-                            (newstatus         (if (or (> bad-not-started 0)
-                                                       (and (equal? newstate "NOT_STARTED")
-                                                            (> num-non-completes 0)))
-                                                   "STARTED"
-                                                   (car all-curr-statuses))))
+                            (newstatus         (cond
+                                                ((> (length preq-fails) 0)
+                                                 "PREQ_FAIL")
+                                                ((or (> bad-not-started 0)
+                                                     (and (equal? newstate "NOT_STARTED")
+                                                          (> num-non-completes 0)))
+                                                 "STARTED")
+                                                (else
+                                                 (car all-curr-statuses)))))
 
                        ;; (print "bad-not-supported: " bad-not-support " all-curr-states: " all-curr-states " all-curr-statuses: " all-curr-states)
                        ;;      " newstate: " newstate " newstatus: " newstatus)
                        ;; NB// Pass the db so it is part of the transaction
                        (debug:print 4 *default-log-port* "BB> tl-test-id="tl-test-id" ; "test-name":"item-path"> bad-not-started="bad-not-started" newstate="newstate" newstatus="newstatus" num-non-completes="num-non-completes" non-completes="non-completes "len(sscs)="(length state-status-counts)  " state-status-counts: "