diff --git a/collects/mzlib/private/match/update-counts.scm b/collects/mzlib/private/match/update-counts.scm
index ce1b72fb26..f5b2a5adf2 100644
--- a/collects/mzlib/private/match/update-counts.scm
+++ b/collects/mzlib/private/match/update-counts.scm
@@ -59,7 +59,7 @@
              lst)))
   
   (define (logical-equal? a b)
-    (or (equal? a b) #t
+    (or (equal? a b)
         (and 
          ;; error checking
          (list? a)