diff --git a/lib/srfi/144/flonum.scm b/lib/srfi/144/flonum.scm
index 7ac1f8ed..27c4c85d 100644
--- a/lib/srfi/144/flonum.scm
+++ b/lib/srfi/144/flonum.scm
@@ -21,6 +21,7 @@
 (define (flabsdiff x y) (abs (- x y)))
 (define flnumerator numerator)
 (define fldenominator denominator)
+(define flround round)
 
 (define (flsquare x) (fl* x x))
 
diff --git a/lib/srfi/144/math.stub b/lib/srfi/144/math.stub
index 6660a995..76b4bc0c 100644
--- a/lib/srfi/144/math.stub
+++ b/lib/srfi/144/math.stub
@@ -109,7 +109,6 @@
 (define-c double (flposdiff "fdim") (double double))
 (define-c double (flfloor "floor") (double))
 (define-c double (flceiling "ceil") (double))
-(define-c double (flround "round") (double))
 (define-c double (fltruncate "trunc") (double))
 
 (define-c double (flexp "exp") (double))
@@ -144,8 +143,8 @@
 (define-c double (flgamma "tgamma") (double))
 (define-c double lgamma_r (double (result int)))
 
-(define-c double (flfirst-bessel "jn") (double int))
-(define-c double (flsecond-bessel "yn") (double int))
+(define-c double (flfirst-bessel "jn") (int double))
+(define-c double (flsecond-bessel "yn") (int double))
 
 (define-c double (flerf "erf") (double))
 (define-c double (flerfc "erfc") (double))