diff --git a/lib/srfi/144.sld b/lib/srfi/144.sld
index ece6a034..9cbd41b8 100644
--- a/lib/srfi/144.sld
+++ b/lib/srfi/144.sld
@@ -27,7 +27,7 @@
    fl-euler fl-e-euler fl-sin-1 fl-cos-1 fl-greatest fl-least
    fl-integer-exponent-zero fl-integer-exponent-nan fl-fast-+*
 
-   flonum? fl= fl< fl> fl<= fl>= flodd? fleven?
+   flonum flonum? fl= fl< fl> fl<= fl>= flodd? fleven?
    flunordered? flinteger? flzero? flpositive? flnegative?
 
    fl+ fl- fl* fl/ fl+* flmax flmin flabsdiff
diff --git a/lib/srfi/144/flonum.scm b/lib/srfi/144/flonum.scm
index 27c4c85d..35a4670c 100644
--- a/lib/srfi/144/flonum.scm
+++ b/lib/srfi/144/flonum.scm
@@ -11,6 +11,7 @@
 (define flzero? zero?)
 (define flpositive? positive?)
 (define flnegative? negative?)
+(define flonum exact->inexact)
 
 (define fl+ +)
 (define fl- -)
diff --git a/lib/srfi/144/test.sld b/lib/srfi/144/test.sld
index 987cd8ec..0498909a 100644
--- a/lib/srfi/144/test.sld
+++ b/lib/srfi/144/test.sld
@@ -5,6 +5,7 @@
     ;; note default (current-test-epsilon) for (chibi test) test is 1e-5
     (define (run-tests)
       (test-begin "srfi-144: flonums")
+      (test-assert (flonum? (flonum 5)))
       (test 5. (fl+ 2. 3.))
       (test -1. (fl- 2. 3.))
       (test 6. (fl* 2. 3.))