diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index b4ca9d9..b945644 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -2075,7 +2075,7 @@
       (error 'fltruncate "not a flonum" x))
     (let ([v ($flonum->exact x)])
       (cond
-        [(ratnum? v) (exact->inexact ($ratnum-truncate x))]
+        [(ratnum? v) (exact->inexact ($ratnum-truncate v))]
         [else x])))
 
   (define log