diff --git a/src/compiler/x86-64/simd-pack-256.lisp b/src/compiler/x86-64/simd-pack-256.lisp
index 67200b67e..50aefa625 100644
--- a/src/compiler/x86-64/simd-pack-256.lisp
+++ b/src/compiler/x86-64/simd-pack-256.lisp
@@ -179,7 +179,7 @@
   (:result-types unsigned-num)
   (:policy :fast-safe)
   (:generator 3
-    (inst vextracti128 tmp x 1)
+    (inst vextractf128 tmp x 1)
     (inst vmovq dst tmp)))
 
 (define-vop (%simd-pack-256-3)
@@ -191,7 +191,7 @@
   (:result-types unsigned-num)
   (:policy :fast-safe)
   (:generator 3
-    (inst vextracti128 tmp x 1)
+    (inst vextractf128 tmp x 1)
     (inst vpextrq dst tmp 1)))
 
 (define-vop (%make-simd-pack-256)
@@ -231,7 +231,7 @@
     (inst vpinsrq dst dst p1 1)
     (inst vmovq tmp p2)
     (inst vpinsrq tmp tmp p3 1)
-    (inst vinserti128 dst dst tmp 1)))
+    (inst vinsertf128 dst dst tmp 1)))
 
 #-sb-xc-host
 (progn
@@ -323,7 +323,7 @@
           (t
            (move tmp x)))
     (when (plusp index)
-      (inst vpsrldq tmp tmp (* 4 index)))
+      (inst vpermilps tmp tmp index))
     (inst vxorps dst dst dst)
     (inst movss dst tmp)))
 
@@ -361,7 +361,7 @@
           (t
            (move tmp x)))
     (when (plusp index)
-      (inst vpsrldq tmp tmp (* 8 index)))
+      (inst vpermilpd tmp tmp 1))
     (inst vxorpd dst dst dst)
     (inst movsd dst tmp)))