diff --git a/src/GF/Source/PrintGF.hs b/src/GF/Source/PrintGF.hs
index ab069adbd..2774246bf 100644
--- a/src/GF/Source/PrintGF.hs
+++ b/src/GF/Source/PrintGF.hs
@@ -71,7 +71,7 @@ instance Print Char where
 
 mkEsc :: Char -> ShowS
 mkEsc s = case s of
-  _ | elem s "\\\"'" -> showChar '\\' . showChar s
+  _ | elem s "\\\"" -> showChar '\\' . showChar s -- H (don't escape ')
   '\n' -> showString "\\n"
   '\t' -> showString "\\t"
   _ -> showChar s