--- a/Scanner.st	Sat Dec 04 16:16:07 1999 +0100
+++ b/Scanner.st	Thu Dec 09 10:30:48 1999 +0100
@@ -218,13 +218,14 @@
     ].
 
     Warnings := true.
-    WarnSTXSpecials := true.
-    WarnUnderscoreInIdentifier := true.
+    WarnSTXSpecials := false.
+    WarnUnderscoreInIdentifier := false.
     WarnDollarInIdentifier := true.
     WarnOldStyleAssignment := true.
     WarnCommonMistakes := true.
     WarnPossibleIncompatibilities := false.
-    AllowUnderscoreInIdentifier := false.       "/ underscores in identifiers
+
+    AllowUnderscoreInIdentifier := true.        "/ underscores in identifiers
     AllowDollarInIdentifier := false.           "/ st80-vms dollars in identifiers
     AllowSqueakExtensions := false.             "/ squeak computed array
     AllowQualifiedNames := false.               "/ vw3 qualified names
@@ -2032,6 +2033,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.111 1999-12-04 15:16:07 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.112 1999-12-09 09:30:48 cg Exp $'
 ! !
 Scanner initialize!