diff --git a/src/compiler/sparc/float.lisp b/src/compiler/sparc/float.lisp
index 74f279dd3cdf49e1d94d59c1433d5be87e498a8b..dcdbda7d5fd5b68d0a444eb0c804e652649713e9 100644
--- a/src/compiler/sparc/float.lisp
+++ b/src/compiler/sparc/float.lisp
@@ -1061,7 +1061,7 @@
   ;; constraint is that the pieces must be small enough to fit in the
   ;; desired float format without rounding.
   (frob %single-float %%single-float 12 1f0)
-  (frob %double-float %%double-float 12 1f0))
+  (frob %double-float %%double-float 12 1d0))
 
 
 (macrolet ((frob (name translate inst to-sc to-type)