diff --git a/src/Dodge/Creature/YourControl.hs b/src/Dodge/Creature/YourControl.hs
index c2d4bcd03..25898aac1 100644
--- a/src/Dodge/Creature/YourControl.hs
+++ b/src/Dodge/Creature/YourControl.hs
@@ -40,7 +40,7 @@ wasdWithAiming w speed i cr
   where 
     (mov',dir') = wasdComp (view keys w) w
     dir = fmap (_cameraRot w +) dir'
-    mov = rotateV (negate $ _crDir cr) mov'
+    mov = rotateV (negate $ _crDir cr - _cameraRot w) mov'
     isAiming    = _posture (_crStance cr) == Aiming
     isMoving    = mov' /= (0,0)
     mouseDir = case w ^? creatures . ix 0 . crInv . ix (_crInvSel (_creatures w IM.! 0))