Index: /trunk/source/level-0/X86/X8632/x8632-misc.lisp
===================================================================
--- /trunk/source/level-0/X86/X8632/x8632-misc.lisp	(revision 15225)
+++ /trunk/source/level-0/X86/X8632/x8632-misc.lisp	(revision 15226)
@@ -713,5 +713,13 @@
 
 (defx8632lapfunction %vect-data-to-macptr ((vect arg_y) (ptr arg_z))
+  (cmpb ($ x8632::subtag-double-float-vector) (@ x8632::misc-subtag-offset (% vect)))
+  (je @dfloat)
+  (cmpb ($ x8632::subtag-double-float) (@ x8632::misc-subtag-offset (% vect)))
+  (je @dfloat)
   (lea (@ x8632::misc-data-offset (% vect)) (% imm0))
+  (jmp @common)
+  @dfloat
+  (lea (@ x8632::misc-dfloat-offset (% vect)) (% imm0))
+  @common
   (movl (% imm0) (@ x8632::macptr.address (% ptr)))
   (single-value-return))