diff --git a/src/PGF/Macros.hs b/src/PGF/Macros.hs
index 9218fcb8f..9b768cd5f 100644
--- a/src/PGF/Macros.hs
+++ b/src/PGF/Macros.hs
@@ -131,7 +131,7 @@ kks = K . KS
 
 -- lookup with default value
 lookMap :: (Show i, Ord i) => a -> i -> Map.Map i a -> a 
-lookMap d c m = fromMaybe d $ Map.lookup c m
+lookMap d c m = Map.findWithDefault d c m
 
 --- from Operations
 combinations :: [[a]] -> [[a]]