--- a/Parser.st	Tue Feb 20 09:19:21 2007 +0100
+++ b/Parser.st	Tue Feb 20 09:34:00 2007 +0100
@@ -3555,7 +3555,7 @@
     |msg|
 
     ignoreErrors ifFalse:[
-        Smalltalk silentLoading == true ifFalse:[
+        Smalltalk silentLoading ifFalse:[
             msg := ''.
             pos notNil ifTrue:[
                 msg := msg , (pos printString).
@@ -3617,7 +3617,7 @@
     ].
 
     "
-     alredy warned about this one ?
+     already warned about this one ?
     "
     warnedUndefVars notNil ifTrue:[
         (warnedUndefVars includes:aName) ifTrue:[
@@ -3627,7 +3627,6 @@
     ].
 
 "/    ignoreWarnings ifTrue:[^ false].
-"/    parserFlags warnings ifFalse:[^ false].
     parserFlags warnUndeclared ifFalse:[^ false].
 
 "/    (classToCompileFor notNil 
@@ -8994,7 +8993,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.538 2007-02-10 20:36:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.539 2007-02-20 08:34:00 stefan Exp $'
 ! !
 
 Parser initialize!