diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index cd2141c0d..11018c308 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-24  Han-Wen Nienhuys  <hanwen@lilypond.org>
+
+	* tests/numbers.test ("equal?"): add case for reduction of
+	rational numbers. 
+
 2006-12-12  Ludovic Courtès  <ludovic.courtes@laas.fr>
 
 	* tests/unif.test (syntax): New test prefix.  Check syntax for
diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 78d130a2b..fd1ced2d2 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -3180,3 +3180,15 @@
   (pass-if "-100i swings back to 45deg down"
     (eqv-loosely? +7.071-7.071i (sqrt -100.0i))))
 
+
+;;
+;; equal? 
+;; 
+
+
+(with-test-prefix "equal?"
+  (pass-if
+
+   ;; lazy reduction bit for rationals should not affect equal?
+   (equal? 1/2 ((lambda (x) (denominator x) x) 1/2))))
+