diff --git a/srfi/69.sld b/srfi/69.sld
index 36e40866..df69898f 100644
--- a/srfi/69.sld
+++ b/srfi/69.sld
@@ -99,7 +99,8 @@
      ;(symbol-hash obj bound)
      (modulo (symbol-hash obj) bound)
     )
-    ((real? obj) (modulo (+ (numerator obj) (denominator obj)) bound))
+    ((and (real? obj) (not (complex? obj)))
+     (modulo (+ (numerator obj) (denominator obj)) bound))
     ((number? obj)
      (modulo (+ (hash (%real-part obj)) (* 3 (hash (%imag-part obj))))
        bound))