diff --git a/lib/srfi/144/flonum.scm b/lib/srfi/144/flonum.scm
index 273d07e8..de2e29db 100644
--- a/lib/srfi/144/flonum.scm
+++ b/lib/srfi/144/flonum.scm
@@ -17,8 +17,8 @@
 (define fl- -)
 (define fl* *)
 (define fl/ /)
-(define flmax max)
-(define flmin min)
+(define (flmax . args) (if (null? args) -inf.0 (apply max args)))
+(define (flmin . args) (if (null? args) +inf.0 (apply min args)))
 (define (flabsdiff x y) (abs (- x y)))
 (define flnumerator numerator)
 (define fldenominator denominator)
diff --git a/lib/srfi/144/test.sld b/lib/srfi/144/test.sld
index eb2ab30e..0076c270 100644
--- a/lib/srfi/144/test.sld
+++ b/lib/srfi/144/test.sld
@@ -95,4 +95,13 @@
       (test -0.781212821 (flsecond-bessel 1 1.))
       (test 0.842700793 (flerf 1.))
       (test 0.157299207 (flerfc 1.))
+      (test #t (< 0.0
+                  fl-least
+                  fl-epsilon
+                  1.0
+                  (+ 1.0 fl-epsilon)
+                  fl-greatest
+                  +inf.0))
+      (test +inf.0 (flmin))
+      (test -inf.0 (flmax))
       (test-end))))