@@ -106,10 +106,11 @@
 	message-digest
 	z3
 	directory-utils
 	sxml-serializer
 	sxml-modifications
+	format
 	
 	debugprint
 	commonmod
 	configfmod
 	(prefix mtargs args:)
@@ -1418,22 +1419,19 @@
 		    (else t)))))
 	  tests))
 
 ;; move all the miscellanea into this struct
 ;;
-(defstruct runs:gendat inc-results inc-results-last-update inc-results-fmt run-info runname target)
-
-(define *runs:general-data* 
-  (make-runs:gendat
-   inc-results: (make-hash-table)
-   inc-results-last-update: 0
-   inc-results-fmt: "~12a~12a~20a~12a~40a\n" ;; state status time duration test-name item-path
-   run-info: #f
-   runname: #f
-   target: #f
-   )
-  )
+(defstruct runs:gendat
+  (inc-results      (make-hash-table))
+  (inc-results-last-update 0)
+  (inc-results-fmt "~12a~12a~20a~12a~40a\n") ;; state status time duration test-name item-path
+  (run-info #f)
+  (runname  #f)
+  (target   #f))
+
+(define *runs:general-data* (make-runs:gendat))
 
 (define (runs:incremental-print-results run-id)
   (let ((curr-sec    (current-seconds))
 	(last-update (runs:gendat-inc-results-last-update *runs:general-data*)))
     (if (> (- curr-sec last-update) 5) ;; at least five seconds since last update