diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp
index ba1ef4739fe3b4f81ecaedf38a0bc0d90e874f3a..f90492bb1de4715bbf74970a27ddf6900eb3ddba 100644
--- a/compiler/float-tran.lisp
+++ b/compiler/float-tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.26 1997/02/12 22:12:24 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.27 1997/02/15 21:39:39 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -420,8 +420,8 @@
   (destructuring-bind (name prim prim-quick) stuff
     (deftransform name ((x) '(single-float) '* :eval-name t :when :both)
       (cond ((csubtypep (continuation-type x)
-			(specifier-type '(single-float (#.(- (expt 2s0 64)))
-						       (#.(expt 2s0 64)))))
+			(specifier-type '(single-float (#.(- (expt 2f0 64)))
+						       (#.(expt 2f0 64)))))
 	     `(coerce (,prim-quick (coerce x 'double-float)) 'single-float))
 	    (t 
 	     (compiler-note