Index: /trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp	(revision 5534)
+++ /trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp	(revision 5535)
@@ -4175,7 +4175,7 @@
 					(j :imm)
                                         (k :imm)))
-  (imulq (:%q dim1) (:%q dim2))
-  (imulq (:%q j) (:%q dim1))
-  (imulq (:%q i) (:%q dim2))
+  (imulq (:%q dim2) (:%q dim1))
+  (imulq (:%q j) (:%q dim2))
+  (imulq (:%q i) (:%q dim1))
   (addq (:%q dim1) (:%q dim2))
   (leaq (:@ (:%q k) (:%q dim2)) (:%q dest)))