diff --git a/src/CodeGen/IL/Common.hs b/src/CodeGen/IL/Common.hs
index 851a7affc..6e0e23a1c 100644
--- a/src/CodeGen/IL/Common.hs
+++ b/src/CodeGen/IL/Common.hs
@@ -57,6 +57,7 @@ properToIL name
 -- ordinal value.
 identCharToText :: Char -> Text
 identCharToText 'ṩ' = "_ṩ"
+identCharToText '$' = "_ṩ"
 identCharToText c | isAlphaNum c = T.singleton c
 identCharToText '_' = "_"
 identCharToText '\'' = "ꞌ" -- lowercase saltillo