diff --git a/linear-algebra/blas1.lisp b/linear-algebra/blas1.lisp
index a1e85a3f192011a33c84a9c237037d10019ba12d..398f4ceca2cae2924f7722e8d03c688c43e9c2c4 100644
--- a/linear-algebra/blas1.lisp
+++ b/linear-algebra/blas1.lisp
@@ -3,7 +3,7 @@
 ; description: BLAS level 1, Vector operations
 ; date:        Wed Apr 26 2006 - 15:23                   
 ; author:      Liam Healy                                
-; modified:    Tue Jun 27 2006 - 23:59
+; modified:    Wed Jul 12 2006 - 12:32
 ;********************************************************
 ;;; $Id: $
 
@@ -181,12 +181,12 @@
   (lisp-unit:assert-first-fp-equal
    "0.707106770000e+01"
    (with-data (b vector-single 3)
-     (setf (data b) #(3.0 4.0 5.0))
+     (setf (data b) #(3.0f0 4.0f0 5.0f0))
      (norm b)))
   (lisp-unit:assert-first-fp-equal
    "0.120000000000e+02"
    (with-data (b vector-single 3)
-     (setf (data b) #(3.0 4.0 5.0))
+     (setf (data b) #(3.0f0 4.0f0 5.0f0))
      (asum b)))
   (lisp-unit:assert-eql
    1