@@ -378,11 +378,11 @@
                        (else
                         (list dest-test-id "DIRTY-BETTER" (conc src-status "->" dest-status)))
                        )))
                 (list test-name item-path  xor-new-item)))
             all-keys)))
-      ;;(BB> "hide-clean="hide-clean)
+
       (if hide-clean
           (filter
            (lambda (item)
              ;;(print item)
              (not