--- a/Parser.st	Fri Jul 26 17:26:33 2002 +0200
+++ b/Parser.st	Wed Jul 31 18:44:14 2002 +0200
@@ -2900,6 +2900,10 @@
         (requestor isNil or:[requestor isStream]) ifTrue:[^ aSelectorString].
     ].
 
+    aSelectorString = '#' ifTrue:[
+        self warnPossibleIncompatibility:'''#'' might not be a valid selector in other smalltalk systems' position:pos1 to:pos2.
+    ].
+
     "
      check if the selector is known at all
      - if not, it cannot be understood
@@ -4990,7 +4994,7 @@
         ^ self primary_lazyValue.
     ].
     tokenType == #HashHash ifTrue:[
-        self warning:'''##'' might parse differently with other smalltalk systems' position:pos to:tokenPosition.
+        self warnPossibleIncompatibility:'''##'' might be interpreted differently in other smalltalk systems' position:pos to:tokenPosition.
         tokenType := #Symbol.
         token := tokenValue := tokenName := '#'.
         ^ self primary_simpleLiteral.
@@ -6680,6 +6684,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.343 2002-07-25 17:44:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.344 2002-07-31 16:44:14 cg Exp $'
 ! !
 Parser initialize!