@@ -943,10 +943,11 @@
 			    (runs:queue-next-tal newtal reg reglen regfull)
 			    (runs:queue-next-reg newtal reg reglen regfull)
 			    reruns)))))))))
 
 ;; scan a list of tests looking to see if any are potentially runnable
+;;
 (define (runs:runable-tests tests)
   (filter (lambda (t)
 	    (if (not (vector? t))
 		t
 		(let ((state  (db:test-get-state t))