diff --git a/src/Dodge/Base.hs b/src/Dodge/Base.hs
index 5b9a67cb1..3e3e00c77 100644
--- a/src/Dodge/Base.hs
+++ b/src/Dodge/Base.hs
@@ -22,7 +22,7 @@ import qualified Data.Set as S
 -- }}}
 --
 leftPad :: Int -> a -> [a] -> [a]
-leftPad i x xs = reverse $ take i $ reverse xs ++ repeat x
+leftPad i x xs = reverse $ take i $ reverse (take i xs) ++ repeat x
 
 rightPad :: Int -> a -> [a] -> [a]
 rightPad i x xs = take i $ xs ++ repeat x