diff --git a/Utility.hs b/Utility.hs
index 47c059ded7..4e56289e22 100644
--- a/Utility.hs
+++ b/Utility.hs
@@ -111,7 +111,7 @@ boolSystem command params = do
 
 {- Escapes a filename to be safely able to be exposed to the shell. -}
 shellEscape :: FilePath -> String
-shellEscape f = "'" ++ quote ++ "'"
+shellEscape f = "'" ++ escaped ++ "'"
 	where
 		-- replace ' with '"'"'
-		quote = join "'\"'\"'" $ split "'" f
+		escaped = join "'\"'\"'" $ split "'" f