--- a/private.rc	Sat Feb 11 17:56:01 1995 +0100
+++ b/private.rc	Thu Feb 16 04:15:53 1995 +0100
@@ -41,7 +41,8 @@
      Once you get bored about them, make the below unconditional.
 "
 OperatingSystem getLoginName = 'claus' ifTrue:[
-    Compiler warnSTXSpecials:false
+    Compiler warnSTXSpecials:false.
+    Compiler allowUnderscoreInIdentifier:true. 
 ].
 
 "