diff --git a/lib/srfi/231/transforms.scm b/lib/srfi/231/transforms.scm
index 422c9f66..eac0b29f 100644
--- a/lib/srfi/231/transforms.scm
+++ b/lib/srfi/231/transforms.scm
@@ -47,16 +47,16 @@
   u64vector-ref u64vector-set! u64? u64vector? make-u64vector u64vector-length 0)
 
 (define-storage-class f32-storage-class
-  f32vector-ref f32vector-set! f32? f32vector? make-f32vector f32vector-length 0)
+  f32vector-ref f32vector-set! f32? f32vector? make-f32vector f32vector-length 0.)
 
 (define-storage-class f64-storage-class
-  f64vector-ref f64vector-set! f64? f64vector? make-f64vector f64vector-length 0)
+  f64vector-ref f64vector-set! f64? f64vector? make-f64vector f64vector-length 0.)
 
 (define-storage-class c64-storage-class
-  c64vector-ref c64vector-set! c64? c64vector? make-c64vector c64vector-length 0)
+  c64vector-ref c64vector-set! c64? c64vector? make-c64vector c64vector-length 0.)
 
 (define-storage-class c128-storage-class
-  c128vector-ref c128vector-set! c128? c128vector? make-c128vector c128vector-length 0)
+  c128vector-ref c128vector-set! c128? c128vector? make-c128vector c128vector-length 0.)
 
 (define-storage-class char-storage-class
   (lambda (vec i) (integer->char (u32vector-ref vec i)))