diff --git a/lib/srfi/144.sld b/lib/srfi/144.sld
index 9cbd41b8..0b8861ee 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 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 35a4670c..273d07e8 100644
--- a/lib/srfi/144/flonum.scm
+++ b/lib/srfi/144/flonum.scm
@@ -1,9 +1,9 @@
 
-(define fl= =)
-(define fl< <)
-(define fl> >)
-(define fl<= <=)
-(define fl>= >=)
+(define fl=? =)
+(define fl<? <)
+(define fl>? >)
+(define fl<=? <=)
+(define fl>=? >=)
 (define flodd? odd?)
 (define fleven? even?)
 (define (flunordered? x y) (or (flnan? x) (flnan? y)))
diff --git a/lib/srfi/144/test.sld b/lib/srfi/144/test.sld
index 0498909a..eb2ab30e 100644
--- a/lib/srfi/144/test.sld
+++ b/lib/srfi/144/test.sld
@@ -89,7 +89,7 @@
       (test 24. (flgamma 5.))
       (call-with-values (lambda () (flloggamma 0.1))
         (lambda (res sign)
-          (test 64. res)
+          (test 2.252713 res)
           (test 1 sign)))
       (test 0.440050586 (flfirst-bessel 1 1.))
       (test -0.781212821 (flsecond-bessel 1 1.))
diff --git a/tests/lib-tests.scm b/tests/lib-tests.scm
index 2de3433c..8a200931 100644
--- a/tests/lib-tests.scm
+++ b/tests/lib-tests.scm
@@ -27,6 +27,7 @@
         (rename (srfi 133 test) (run-tests run-srfi-133-tests))
         (rename (srfi 134 test) (run-tests run-srfi-134-tests))
         (rename (srfi 139 test) (run-tests run-srfi-139-tests))
+        (rename (srfi 144 test) (run-tests run-srfi-144-tests))
         (rename (srfi 146 test) (run-tests run-srfi-146-tests))
         (rename (srfi 146 hash-test) (run-tests run-srfi-146-hash-tests))
         (rename (srfi 151 test) (run-tests run-srfi-151-tests))
@@ -95,6 +96,7 @@
 (run-srfi-133-tests)
 (run-srfi-134-tests)
 (run-srfi-139-tests)
+(run-srfi-144-tests)
 (run-srfi-146-tests)
 (run-srfi-146-hash-tests)
 (run-srfi-151-tests)