diff --git a/lib/init-7.scm b/lib/init-7.scm
index 341a1bd1..e915b693 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -1080,7 +1080,7 @@
 (cond-expand
  (complex
   (define (real-part z) (if (%complex? z) (complex-real z) z))
-  (define (imag-part z) (if (%complex? z) (complex-imag z) 0.0))
+  (define (imag-part z) (if (%complex? z) (complex-imag z) 0))
   (define (magnitude z)
     (sqrt (+ (* (real-part z) (real-part z))
              (* (imag-part z) (imag-part z)))))