diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index d089031..81ca0b5 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -1514,8 +1514,8 @@
       [(flonum? x) x]
       [(compnum? x) 
        (make-rectangular 
-         (->inexact (real-part x))
-         (->inexact (imag-part x)))]
+         (->inexact (real-part x) who)
+         (->inexact (imag-part x) who))]
       [(cflonum? x) x]
       [else
        (die who "not a number" x)]))
diff --git a/scheme/last-revision b/scheme/last-revision
index 173a668..741f5d6 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1737
+1738