diff --git a/collects/tests/r6rs/base.ss b/collects/tests/r6rs/base.ss
index f0e276b368..e781a51356 100644
--- a/collects/tests/r6rs/base.ss
+++ b/collects/tests/r6rs/base.ss
@@ -951,7 +951,7 @@
     (test (boolean? 0)           #f)
     (test (boolean? '())         #f)
 
-    (test (boolean=? #f #f) #f)
+    (test (boolean=? #f #f) #t)
     (test (boolean=? #t #t) #t)
     (test (boolean=? #t #f) #f)
     (test (boolean=? #f #t) #f)