diff --git a/compiler/float-tran.lisp b/compiler/float-tran.lisp
index 179c62598a3875eaf42b2d8a375aeb69b161c7d1..1f4c0469d4d9eb9b2406fef31da37c9710f2f01c 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.93 2003/09/05 15:35:32 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.94 2003/09/07 11:48:29 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -24,7 +24,7 @@
 
 (deftransform float ((n &optional f) (* &optional single-float) *
 		     :when :both)
-  '(if (floatp n)
+  '(if (single-float-p n)
        n
        (%single-float n)))
 
diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt
index 22e6f55403febb718cfafa9cb20b1849c3e51a90..8b31579ff8b64efcfa2cee0c8db3c83917e7e5d9 100644
--- a/general-info/release-19a.txt
+++ b/general-info/release-19a.txt
@@ -177,6 +177,7 @@ New in this release:
        similar cases.
      - GCD sometimes returning a negative value.
      - LCM sometimes returning a negative value, or signaling division-by-zero.
+     - FLOAT in sometimes returning a float of the wrong type.
 
   * Other changes:
      - CREATE-REQUEST-SERVER has an additional :reuse-address keyword