Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -3349,10 +3349,14 @@
                                                    *common:std-statuses* >))
 			    (non-completes     (filter (lambda (x)
 							 (not (equal? x "COMPLETED")))
 						       all-curr-states))
                             (newstate          (cond
+						((> running 0)
+						 "RUNNING") ;; anything running, call the situation running
+						((> bad-not-started 0)  ;; we have an ugly situation, it is completed in the sense we cannot do more.
+						 "COMPLETED") 
 						((> (length non-completes) 0) ;;
 						 (car non-completes))  ;;  (remove (lambda (x)(equal? "COMPLETED" x)) all-curr-states)))
 						(else
 						 (car all-curr-states))))
 			                       ;; (if (> running 0)