diff --git a/benchmarks/BUGS b/benchmarks/BUGS
index 903e752..95666f7 100644
--- a/benchmarks/BUGS
+++ b/benchmarks/BUGS
@@ -2,7 +2,7 @@
 * ray needs many fl procedures
 * quicksort needs bignum modulo.
 * scheme needs complex? and other stuff.
-* slatex needs string-ci=?
+* slatex needs char-alphabetic?
 * compiler needs string-downcase
 
 * ctak crashes with a bus error.
diff --git a/benchmarks/r6rs-benchmarks/slatex.ss b/benchmarks/r6rs-benchmarks/slatex.ss
index 9bcf099..80bfa57 100644
--- a/benchmarks/r6rs-benchmarks/slatex.ss
+++ b/benchmarks/r6rs-benchmarks/slatex.ss
@@ -10,6 +10,7 @@
     (r6rs) 
     (r6rs unicode)
     (r6rs mutable-pairs)
+    (r6rs i/o simple)
     (r6rs-benchmarks))
 
   (define *op-sys* 'unix)
diff --git a/src/ikarus.boot b/src/ikarus.boot
index 4b741ef..b16bac1 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.numerics.ss b/src/ikarus.numerics.ss
index ab4166c..a8f3861 100644
--- a/src/ikarus.numerics.ss
+++ b/src/ikarus.numerics.ss
@@ -132,7 +132,8 @@
           abs
           exact->inexact floor ceiling round log fl=? fl<? fl<=? fl>?
           fl>=? fl+ fl- fl* fl/ flsqrt flmin flzero? flnegative?
-          sin cos atan sqrt)
+          sin cos atan sqrt
+          flround)
   (import 
     (ikarus system $fx)
     (ikarus system $flonums)
@@ -148,7 +149,8 @@
             exact-integer-sqrt min max abs
             fl=? fl<? fl<=? fl>? fl>=? fl+ fl- fl* fl/ flsqrt flmin
             flzero? flnegative?
-            sin cos atan sqrt))
+            sin cos atan sqrt
+            flround))
 
   (define (fixnum->flonum x)
     (foreign-call "ikrt_fixnum_to_flonum" x))
@@ -1618,31 +1620,40 @@
       [(or (fixnum? x) (bignum? x)) x]
       [else (error 'ceiling "~s is not a number" x)]))
 
-  (define (round x)
-    (define (ratnum-round x)
-      (let ([n ($ratnum-n x)] [d ($ratnum-d x)])
-        (let-values ([(q r) (quotient+remainder n d)])
-          (let ([r2 (+ r r)]) 
-            (if (> n 0) 
+
+  (define ($ratnum-round x)
+    (let ([n ($ratnum-n x)] [d ($ratnum-d x)])
+      (let-values ([(q r) (quotient+remainder n d)])
+        (let ([r2 (+ r r)]) 
+          (if (> n 0) 
+              (cond
+                [(< r2 d) q]
+                [(> r2 d) (+ q 1)]
+                [else
+                 (if (even? q) q (+ q 1))])
+              (let ([r2 (- r2)])
                 (cond
                   [(< r2 d) q]
-                  [(> r2 d) (+ q 1)]
+                  [(< r2 d) (- q 1)]
                   [else
-                   (if (even? q) q (+ q 1))])
-                (let ([r2 (- r2)])
-                  (cond
-                    [(< r2 d) q]
-                    [(< r2 d) (- q 1)]
-                    [else
-                     (if (even? q) q (- q 1))])))))))
+                   (if (even? q) q (- q 1))])))))))
+
+  (define ($flround x)
+    (let ([e ($flonum->exact x)])
+      (cond
+        [(not e) x] ;;; infs and nans round to themselves
+        [(ratnum? e) (exact->inexact ($ratnum-round e))]
+        [else (exact->inexact e)])))
+
+  (define (flround x)
+    (if (flonum? x)
+        ($flround x)
+        (error 'flround "~s is not a flonum" x)))
+
+  (define (round x)
     (cond
-      [(flonum? x) 
-       (let ([e ($flonum->exact x)])
-         (cond
-           [(not e) x] ;;; infs and nans round to themselves
-           [(ratnum? e) (exact->inexact (ratnum-round e))]
-           [else (exact->inexact e)]))]
-      [(ratnum? x) (ratnum-round x)]
+      [(flonum? x) ($flround x)]
+      [(ratnum? x) ($ratnum-round x)]
       [(or (fixnum? x) (bignum? x)) x]
       [else (error 'round "~s is not a number" x)]))
 
diff --git a/src/makefile.ss b/src/makefile.ss
index d656428..63e48eb 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -398,6 +398,7 @@
     [flnegative?             i rfl]
     [flpositive?             i rfl]
     [flabs                   i rfl]
+    [flround                 i rfl]
     [fixnum->string          i]
     [string->flonum          i]
     [-                       i r]