@@ -18,31 +18,32 @@
 ;;
 ;;======================================================================
 
 (declare (uses ducttape-lib))
 
-(declare (uses bigmod))
-(declare (uses bigmod.import))
-(declare (uses commonmod))
-(declare (uses configfmod))
-(declare (uses dashboard-context-menu))
-(declare (uses dashboard-tests))
-(declare (uses dbmod))
-(declare (uses dcommon))
-(declare (uses debugprint))
-(declare (uses debugprint.import))
-(declare (uses gutils))
-(declare (uses itemsmod))
-(declare (uses launchmod))
-(declare (uses mtargs))
-(declare (uses mtmod))
-(declare (uses mtver))
-(declare (uses processmod))
-(declare (uses runsmod))
-(declare (uses subrunmod))
-(declare (uses tree))
-(declare (uses vgmod))
+;; (declare (uses bigmod))
+;; (declare (uses gutils))
+;; (declare (uses bigmod.import))
+;; (declare (uses commonmod))
+;; (declare (uses configfmod))
+;; (declare (uses dashboard-context-menu))
+;; (declare (uses dashboard-tests))
+;; (declare (uses dbmod))
+;; (declare (uses dcommon))
+;; (declare (uses debugprint))
+;; (declare (uses debugprint.import))
+;; (declare (uses itemsmod))
+;; (declare (uses launchmod))
+;; (declare (uses mtargs))
+;; (declare (uses mtmod))
+;; (declare (uses mtver))
+;; (declare (uses processmod))
+;; (declare (uses runsmod))
+;; (declare (uses subrunmod))
+;; (declare (uses tree))
+;; (declare (uses vgmod))
+
 ;; (declare (uses dashboard-guimonitor))
 ;; (declare (uses dashboard-main))
 
 (import (prefix iup iup:))
 (import canvas-draw)
@@ -69,10 +70,11 @@
 ;; (include "megatest-version.scm")
 (include "megatest-fossil-hash.scm")
 ;; (include "vg_records.scm")
 
 (import commonmod
+	;; gutils
 	configfmod
 	dbmod
 	debugprint
 	itemsmod
 	launchmod
@@ -82,11 +84,10 @@
 	processmod
 	runsmod
 	subrunmod
 	vgmod
 	dcommon
-	gutils
 	tree
 	dashboard-context-menu
 	dashboard-tests)
 
 (define help (conc 
@@ -541,16 +542,10 @@
 
 (if (get-environment-variable "MT_RUN_AREA_HOME")(change-directory (get-environment-variable "MT_RUN_AREA_HOME")))
 
 (define (pad-list l n)(append l (make-list (- n (length l)))))
 
-(define (colors-similar? color1 color2)
-  (let* ((c1    (map string->number (string-split color1)))
-	 (c2    (map string->number (string-split color2)))
-	 (delta (map (lambda (a b)(abs (- a b))) c1 c2)))
-    (null? (filter (lambda (x)(> x 3)) delta))))
-
 (define (dboard:compare-tests test1 test2)
   (let* ((test-name1  (db:test-get-testname  test1))
 	 (item-path1  (db:test-get-item-path test1))
 	 (eventtime1  (db:test-get-event_time test1))
 	 (test-name2  (db:test-get-testname  test2))