--- a/Scanner.st	Wed Mar 10 15:20:49 1999 +0100
+++ b/Scanner.st	Wed Mar 10 15:30:25 1999 +0100
@@ -678,13 +678,13 @@
     |correctIt|
 
     requestor isNil ifTrue:[
-	self showErrorMessage:message position:pos1.
-	correctIt := false
+"/        self showErrorMessage:message position:pos1.
+        correctIt := false
     ] ifFalse:[
-	correctIt := requestor correctableError:message position:pos1 to:pos2 from:self
+        correctIt := requestor correctableError:message position:pos1 to:pos2 from:self
     ].
     correctIt ifFalse:[
-	exitBlock notNil ifTrue:[exitBlock value]
+        exitBlock notNil ifTrue:[exitBlock value]
     ].
     ^ correctIt
 
@@ -724,11 +724,11 @@
      Return the result passed back by the requestor."
 
     ignoreWarnings ifFalse:[
-	requestor isNil ifTrue:[
-	    self showErrorMessage:aMessage position:position.
-	    ^ false
-	].
-	^ requestor warning:aMessage position:position to:endPos from:self
+        requestor isNil ifTrue:[
+"/            self showErrorMessage:aMessage position:position.
+            ^ false
+        ].
+        ^ requestor warning:aMessage position:position to:endPos from:self
     ].
     ^ false
 !
@@ -1907,6 +1907,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.92 1999-02-26 15:11:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.93 1999-03-10 14:30:25 cg Exp $'
 ! !
 Scanner initialize!