diff --git a/src/compiler/x86/float-sse2.lisp b/src/compiler/x86/float-sse2.lisp
index bfa6df901f8f69274fa01913883e121224936813..e7b1b8665072a91d0d1c370050b74ff8e1eb377f 100644
--- a/src/compiler/x86/float-sse2.lisp
+++ b/src/compiler/x86/float-sse2.lisp
@@ -1272,7 +1272,8 @@
 
 (define-vop (double-float-bits)
   (:args (float :scs (double-reg descriptor-reg)
-		:load-if (not (sc-is float double-stack))))
+		:load-if (not (sc-is float double-stack))
+		:to (:result 1)))
   (:results (hi-bits :scs (signed-reg))
 	    (lo-bits :scs (unsigned-reg)))
   (:arg-types double-float)