diff --git a/src/GF/Speech/PrGSL.hs b/src/GF/Speech/PrGSL.hs
index b204ae6c3..2c06d13d1 100644
--- a/src/GF/Speech/PrGSL.hs
+++ b/src/GF/Speech/PrGSL.hs
@@ -69,7 +69,7 @@ showToken :: Token -> String
 showToken t = map toLower (prt t)
 
 isPunct :: Char -> Bool
-isPunct c = c `elem` "-_.;.,?!()[]{}"
+isPunct c = c `elem` "-_.:;.,?!()[]{}"
 
 comments :: [String] -> ShowS
 comments = unlinesS . map (showString . ("; " ++))