diff --git a/3bb-1.lisp b/3bb-1.lisp
index 14da5d9..141bf42 100644
--- a/3bb-1.lisp
+++ b/3bb-1.lisp
@@ -57,9 +57,8 @@
 (defun rotate* (m v)
   (let ((result (make-array 3 :initial-element 0)))
     (dotimes (x 3)
-      (let ((cell (aref v x)))
-	(dotimes (y 3)
-	  (incf (aref result x) (* cell (aref m x y))))))
+      (dotimes (y 3)
+	(incf (aref result x) (* (aref v y) (aref m x y)))))
     result))