diff --git a/src/GF/Speech/PrGSL.hs b/src/GF/Speech/PrGSL.hs
index 0d7cb6c39..1d505bea1 100644
--- a/src/GF/Speech/PrGSL.hs
+++ b/src/GF/Speech/PrGSL.hs
@@ -57,7 +57,7 @@ rmPunct (Tok t:ss) | all isPunct (prt t) = rmPunct ss
 rmPunct (s:ss) = s : rmPunct ss
 
 isPunct :: Char -> Bool
-isPunct c = c `elem` "-_.;.,?!"
+isPunct c = c `elem` "-_.;.,?!()[]{}"
 
 comments :: [String] -> ShowS
 comments = unlinesS . map (showString . ("; " ++))