diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index f680720..e1995c9 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -1914,7 +1914,13 @@
               (let ([v (sqrt (inexact x))])
                 ;;; could the [dropped] residual ever affect the answer?
                 (cond
-                  [(infinite? v) (inexact s)]
+                  [(infinite? v)
+                   (if (bignum? s) 
+                       (foreign-call "ikrt_bignum_to_flonum" 
+                          s
+                          1 ;;; round up in case of a tie
+                          ($make-flonum))
+                       (inexact s))]
                   [else v]))]))]
         [(ratnum? x)
          ;;; FIXME: incorrect as per bug 180170
diff --git a/scheme/last-revision b/scheme/last-revision
index 97dc468..5c24846 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1339
+1340