@@ -111,6 +111,8 @@ translateIdentifier =
111 replaceBadChars '@' = "__at__"
111 replaceBadChars '@' = "__at__"
112 replaceBadChars '[' = "__OSB__"
112 replaceBadChars '[' = "__OSB__"
113 replaceBadChars ']' = "__CSB__"
113 replaceBadChars ']' = "__CSB__"
114+ replaceBadChars '(' = "__OP__"
115+ replaceBadChars ')' = "__CP__"
114 replaceBadChars '{' = "__OB__"
116 replaceBadChars '{' = "__OB__"
115 replaceBadChars '}' = "__CB__"
117 replaceBadChars '}' = "__CB__"
116 replaceBadChars '!' = "__bang__"
118 replaceBadChars '!' = "__bang__"