diff --git a/lib/srfi/38.scm b/lib/srfi/38.scm
index b7b61945..bdc5d225 100644
--- a/lib/srfi/38.scm
+++ b/lib/srfi/38.scm
@@ -185,7 +185,7 @@
                ((#\') (read-char in) (list 'syntax (read-one)))
                ((#\`) (read-char in) (list 'quasisyntax (read-one)))
                ((#\t) (read-char in) #t)
-               ((#\f) (read-char in) #t) ; support SRFI-4 f32/64 vectors
+               ((#\f) (read-char in) #f) ; support SRFI-4 f32/64 vectors
                ((#\d) (read-char in) (read in))
                ((#\x) (read-char in) (read-number 16))
                ((#\o) (read-char in) (read-number 8))