diff --git a/Text/Pandoc/Writers/Man.hs b/Text/Pandoc/Writers/Man.hs
index f83436b31..9037c24af 100644
--- a/Text/Pandoc/Writers/Man.hs
+++ b/Text/Pandoc/Writers/Man.hs
@@ -100,7 +100,7 @@ noteToMan opts num note = do
 
 -- | Association list of characters to escape.
 manEscapes :: [(Char, String)]
-manEscapes = [('\160', "\\ "), ('\'', "\\[aq]")] ++ backslashEscapes "\".@\\"
+manEscapes = [('\160', "\\ "), ('\'', "\\[aq]")] ++ backslashEscapes ".@\\"
 
 -- | Escape special characters for Man.
 escapeString :: String -> String
diff --git a/tests/writer.man b/tests/writer.man
index d1a8b8a86..e855aa807 100644
--- a/tests/writer.man
+++ b/tests/writer.man
@@ -49,7 +49,7 @@ Code in a block quote:
 .PP
 \f[CR]
       sub\ status\ {
-      \ \ \ \ print\ \"working\";
+      \ \ \ \ print\ "working";
       }
 \f[]
 .PP
@@ -83,7 +83,7 @@ Code:
       ----\ (should\ be\ four\ hyphens)
       
       sub\ status\ {
-      \ \ \ \ print\ \"working\";
+      \ \ \ \ print\ "working";
       }
       
       this\ code\ block\ is\ indented\ by\ one\ tab