@@ -246,11 +246,11 @@
   ((view-changed       #t)                : boolean)   
   ((xadj               0)                 : number)     ;; x slider number (if using canvas)
   ((yadj               0)                 : number)     ;; y slider number (if using canvas)
 
   ;; runs-summary tab state
-  ((runs-summary-modes '((one-run . "Show One Run") (xor-two-runs . "XOR Two Runs")) )   : list)
+  ((runs-summary-modes '((one-run . "Show One Run") (xor-two-runs . "XOR Two Runs") (xor-two-runs-hide-clean . "XOR; Hide Clean")) )   : list)
   ((runs-summary-mode-buttons '())               : list)
   ((runs-summary-mode  'one-run)            : symbol)
   ((runs-summary-mode-change-callbacks '()) : list)
   (runs-summary-source-runname-label #f)
   (runs-summary-dest-runname-label #f)
@@ -1473,17 +1473,18 @@
                              res)
                            (hash-table-ref (dboard:tabdat-last-test-dat tabdat) run-id)))
          (tests-mindat (dcommon:minimize-test-data tests-dat)))  ;; reduces data for display
     tests-mindat))
 
-(define (dashboard:runs-summary-xor-matrix-content tabdat runs-hash)
+(define (dashboard:runs-summary-xor-matrix-content tabdat runs-hash #!key (hide-clean #f))
   (let* ((src-run-id (dboard:tabdat-prev-run-id tabdat))
          (dest-run-id (dboard:tabdat-curr-run-id tabdat)))
     (if (and src-run-id dest-run-id)
         (dcommon:xor-tests-mindat 
          (dashboard:run-id->tests-mindat src-run-id tabdat runs-hash)
-         (dashboard:run-id->tests-mindat dest-run-id tabdat runs-hash))
+         (dashboard:run-id->tests-mindat dest-run-id tabdat runs-hash)
+         hide-clean: hide-clean)
         #f)))
 
 (define (dashboard:runs-summary-updater commondat tabdat tb cell-lookup run-matrix)
   (dboard:runs-summary-control-panel-updater tabdat)
   (let* ((last-runs-update  (dboard:tabdat-last-runs-update tabdat))
@@ -1500,10 +1501,11 @@
     (if run-id
         (let* ((matrix-content
                 (case (dboard:tabdat-runs-summary-mode tabdat) 
                   ((one-run) (dashboard:run-id->tests-mindat run-id tabdat runs-hash))
                   ((xor-two-runs) (dashboard:runs-summary-xor-matrix-content tabdat runs-hash))
+                  ((xor-two-runs-hide-clean) (dashboard:runs-summary-xor-matrix-content tabdat runs-hash hide-clean: #t))
                   (else (dashboard:run-id->tests-mindat run-id tabdat runs-hash)))))
           (when matrix-content
             (let* ((indices      (common:sparse-list-generate-index matrix-content)) ;;  proc: set-cell))
                    (row-indices  (cadr indices))
                    (col-indices  (car indices))
@@ -1714,11 +1716,11 @@
   (let ((source-runname-label (dboard:tabdat-runs-summary-source-runname-label tabdat))
         (dest-runname-label (dboard:tabdat-runs-summary-dest-runname-label tabdat))
         (mode (dboard:tabdat-runs-summary-mode tabdat)))
     (when (and source-runname-label dest-runname-label)
       (case mode
-        ((xor-two-runs)
+        ((xor-two-runs xor-two-runs-hide-clean)
          (let* ((curr-run-id          (dboard:tabdat-curr-run-id tabdat))
                 (prev-run-id          (dboard:tabdat-prev-run-id tabdat))
                 (curr-runname (if curr-run-id
                                   (rmt:get-run-name-from-id curr-run-id)
                                   "None"))