Index: /trunk/source/compiler/X86/X8664/x8664-vinsns.lisp
===================================================================
--- /trunk/source/compiler/X86/X8664/x8664-vinsns.lisp	(revision 13220)
+++ /trunk/source/compiler/X86/X8664/x8664-vinsns.lisp	(revision 13221)
@@ -4348,5 +4348,5 @@
 					     ((v :lisp)
 					      (idx :u32const)))
-  (movsd (:%xmm val) (:@ (:apply + x8664::misc-data-offset (:apply ash idx 2))(:%q v))))
+  (movss (:%xmm val) (:@ (:apply + x8664::misc-data-offset (:apply ash idx 2)) (:%q v))))
 
 (define-x8664-vinsn array-data-vector-ref (((dest :lisp))