diff --git a/lib/srfi/144/test.sld b/lib/srfi/144/test.sld
index cf2fb5eb..987cd8ec 100644
--- a/lib/srfi/144/test.sld
+++ b/lib/srfi/144/test.sld
@@ -90,8 +90,8 @@
         (lambda (res sign)
           (test 64. res)
           (test 1 sign)))
-      (test 0.440050586 (flfirst-bessel 1. 1))
-      (test -0.781212821 (flsecond-bessel 1. 1))
+      (test 0.440050586 (flfirst-bessel 1 1.))
+      (test -0.781212821 (flsecond-bessel 1 1.))
       (test 0.842700793 (flerf 1.))
       (test 0.157299207 (flerfc 1.))
       (test-end))))