diff --git a/src/Dodge/Creature/HandPos.hs b/src/Dodge/Creature/HandPos.hs
index b5d3e8f40..08fb2c9c5 100644
--- a/src/Dodge/Creature/HandPos.hs
+++ b/src/Dodge/Creature/HandPos.hs
@@ -50,7 +50,7 @@ translateToLeftHand cr
     f i = negate 2 + negate 6 * fromIntegral (sLen - i) / fromIntegral sLen
 
 translateToLeftLeg :: Creature -> SPic -> SPic
-translateToLeftLeg cr = case cr ^? crStance . carriage of
+translateToLeftLeg cr = rotateSP (_crMvDir cr - _crDir cr) . case cr ^? crStance . carriage of
     Just (Walking sa LeftForward)  -> translateSPf ( f sa)   off
     Just (Walking sa RightForward) -> translateSPf (-f sa)   off
     _ -> translateSPf 0   off
@@ -60,7 +60,7 @@ translateToLeftLeg cr = case cr ^? crStance . carriage of
     f i = 6 * fromIntegral (sLen - i) / fromIntegral sLen
 
 translateToRightLeg :: Creature -> SPic -> SPic
-translateToRightLeg cr = case cr ^? crStance . carriage of
+translateToRightLeg cr = rotateSP (_crMvDir cr - _crDir cr) . case cr ^? crStance . carriage of
     Just (Walking sa LeftForward)  -> translateSPf (-f sa) (-off)
     Just (Walking sa RightForward) -> translateSPf ( f sa) (-off)
     _ -> translateSPf 0 (-off)