Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -618,12 +618,14 @@
     (iup:attribute-set! general-matrix "2:1" (conc megatest-version "-" (substring megatest-fossil-hash 0 4)))
 
     general-matrix))
 
 (define (dcommon:stats-updater commondat tabdat stats-matrix)
-  (if (dashboard:database-changed? commondat tabdat context-key: 'run-stats)
-      (let* ((run-stats    (rmt:get-run-stats))
+  (if (and (iup:ihandle? stats-matrix)
+	   (dashboard:database-changed? commondat tabdat context-key: 'run-stats))
+      (let* ((changed      #f)
+	     (run-stats    (rmt:get-run-stats))
 	     (indices      (common:sparse-list-generate-index run-stats)) ;;  proc: set-cell))
 	     (row-indices  (car indices))
 	     (col-indices  (cadr indices))
 	     (max-row      (if (null? row-indices) 1 (common:max (map cadr row-indices))))
 	     (max-col      (if (null? col-indices) 1 
@@ -630,11 +632,10 @@
 			       (common:max (map cadr col-indices))))
 	     (max-visible  (max (- (dboard:tabdat-num-tests tabdat) 15) 3))
 	     (max-col-vis  (if (> max-col 10) 10 max-col))
 	     (numrows      1)
 	     (numcols      1))
-	(debug:print 0 *default-log-port* "GOT HERE, stats-matrix: " stats-matrix)
 	(iup:attribute-set! stats-matrix "CLEARVALUE" "CONTENTS")
 	(iup:attribute-set! stats-matrix "NUMCOL" max-col )
 	(iup:attribute-set! stats-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20
 	(iup:attribute-set! stats-matrix "NUMCOL_VISIBLE" max-col-vis)
 	(iup:attribute-set! stats-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
@@ -677,11 +678,10 @@
 	(if changed (iup:attribute-set! stats-matrix "REDRAW" "ALL")))))
 
 
 (define (dcommon:run-stats commondat tabdat #!key (tab-num #f))
   (let* ((stats-matrix (iup:matrix expand: "YES"))
-	 (changed      #f)
 	 (stats-updater (lambda ()
 			  (dcommon:stats-updater commondat tabdat stats-matrix))))
     ;; (dboard:commondat-please-update-set! commondat #t) ;; force redraw on first pass 
     ;; (mark-for-update tabdat)
     ;; (stats-updater)