@@ -522,11 +522,11 @@
                                (let* ((shell (if (get-environment-variable "SHELL") 
                                                  (conc "-e " (get-environment-variable "SHELL"))
                                                  ""))
                                       (command (conc "cd " rundir 
                                                      ";mt_xterm -T \"" (string-translate testfullname "()" "  ") "\" " shell "&")))
-                                 (print "Command =" command)
+                                 ;; (print "Command =" command)
                                  (common:without-vars
                                   command
                                   "MT_.*"))
                                (message-window  (conc "Directory " rundir " not found"))))))
           (xterm)
@@ -550,11 +550,11 @@
                         #:numcol 1
                         #:numlin (length key-vals)
                         #:numcol-visible 1
                         #:numlin-visible (length key-vals)
                         #:click-cb (lambda (obj lin col status)
-                                     (print "obj: " obj " lin: " lin " col: " col " status: " status)))))
+                                     (debug:print 0 *default-log-port* "obj: " obj " lin: " lin " col: " col " status: " status)))))
     ;; (iup:attribute-set! keys-matrix "0:0" "Run Keys")
     (iup:attribute-set! keys-matrix "WIDTH0" 0)
     (iup:attribute-set! keys-matrix "0:1" "Key Name")
     ;; (iup:attribute-set! keys-matrix "WIDTH1" "100")
     ;; fill in keys
@@ -800,22 +800,23 @@
 										  (iup:attribute fd "VALUE"))
 							      (iup:destroy! fd))))
 			   ;; (lambda (obj)
 			   ;;  (iup:show (iup:file-dialog))
 			   ;;  (print "File->open " obj)))
-			   (iup:menu-item "Save"  #:action (lambda (obj)(print "File->save " obj)))
+			   ;; (iup:menu-item "Save"  #:action (lambda (obj)(print "File->save " obj)))
 			   (iup:menu-item "Exit"  #:action (lambda (obj)(exit)))))
-   (iup:menu-item "Tools" (iup:menu
-			   (iup:menu-item "Create new blah" #:action (lambda (obj)(print "Tools->new blah")))
-			   ;; (iup:menu-item "Show dialog"     #:action (lambda (obj)
-			   ;;  					   (show message-window
-			   ;;  					     #:modal? #t
-			   ;;  					     ;; set positon using coordinates or center, start, top, left, end, bottom, right, parent-center, current
-			   ;;  					     ;; #:x 'mouse
-			   ;;  					     ;; #:y 'mouse
-			   ;;  )					     
-			   ))))
+;; (iup:menu-item "Tools" (iup:menu
+;; 			   (iup:menu-item "Create new blah" #:action (lambda (obj)(print "Tools->new blah")))
+;; 			   ;; (iup:menu-item "Show dialog"     #:action (lambda (obj)
+;; 			   ;;  					   (show message-window
+;; 			   ;;  					     #:modal? #t
+;; 			   ;;  					     ;; set positon using coordinates or center, start, top, left, end, bottom, right, parent-center, current
+;; 			   ;;  					     ;; #:x 'mouse
+;; 			   ;;  					     ;; #:y 'mouse
+;; 			   ;;  )					     
+;; 			   ))
+   ))
 
 ;;======================================================================
 ;; CANVAS STUFF FOR TESTS
 ;;======================================================================
 
@@ -1357,11 +1358,10 @@
 	  (let* ((status  (vector-ref hed 3))
                  (val     (vector-ref hed (- colnum 1)))
                  (bgcolor (cond
                            ((member (conc status) '("" "-" "#<unspecified>"))
                             running-color)
-                           
                            ((member (conc status) '("0" 0))
                             white)
                            (else test-status-color)))
                           ; (else failcolor)))
 		 (mtrx-rc (conc rownum ":" colnum)))