diff --git a/src/GF/Infra/CompactPrint.hs b/src/GF/Infra/CompactPrint.hs
index 486c9e183..ca2452de6 100644
--- a/src/GF/Infra/CompactPrint.hs
+++ b/src/GF/Infra/CompactPrint.hs
@@ -5,7 +5,8 @@ compactPrint = compactPrintCustom keywordGF (const False)
 
 compactPrintGFCC = compactPrintCustom (const False) keywordGFCC
 
-compactPrintCustom pre post = dps . concat . map (spaceIf pre post) . words 
+-- FIXME: using words is not safe, since this is run on UTF-8 encoded data.
+compactPrintCustom pre post = id -- dps . concat . map (spaceIf pre post) . words 
 
 dps = dropWhile isSpace