Index: /trunk/source/compiler/optimizers.lisp
===================================================================
--- /trunk/source/compiler/optimizers.lisp	(revision 15076)
+++ /trunk/source/compiler/optimizers.lisp	(revision 15077)
@@ -2270,4 +2270,5 @@
 
   (cond ((and (typep other 'single-float)
+              other-p
               (nx-form-typep number 'double-float env))
          `(the single-float (%double-to-single ,number)))