releasing version 0.201105160.20110516

1 files changed, 1 insertions, 1 deletions

diff --git a/Remote.hs b/Remote.hs
index 7bbe91000..7df84a5da 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -188,7 +188,7 @@ configToKeyVal m = map toword $ sort $ M.toList m
 		toword (k, v) = k ++ "=" ++ configEscape v
 
 configEscape :: String -> String
-configEscape = concat . (map escape)
+configEscape = (>>= escape)
 	where
 		escape c
 			| isSpace c || c `elem` "&" = "&" ++ show (ord c) ++ ";"