--- a/Scanner.st	Mon Apr 16 20:49:52 2018 +0200
+++ b/Scanner.st	Thu Apr 19 10:49:59 2018 +0200
@@ -1496,42 +1496,43 @@
      error (and/or to abort the compile).
      Return the result passed back by the requestor."
 
-    (Smalltalk isInitialized not and:[Smalltalk isStandAloneDebug]) ifTrue:[
-	"/ error during startup, but sometimes we expect an error and want to suppress it
-	Parser parseWarningSignal query ~~ #ignore ifTrue:[
-	    (self class name,' [error]: error during initialization:') errorPrint.
-	    aMessage errorPrintCR.
-	    thisContext fullPrintAll.
-	].
+    (Smalltalk isInitialized not and:[Smalltalk isDebuggableApp]) ifTrue:[
+        "/ error during startup, but sometimes we expect an error and want to suppress it
+        Parser parseWarningSignal query ~~ #ignore ifTrue:[
+            (self class name,' [error]: error during initialization:') errorPrint.
+            aMessage errorPrintCR.
+            thisContext fullPrintAll.
+        ].
     ].
 
     ignoreErrors ifTrue:[
-	"/ usually done, when syntax highlighting or looking for used variables
-	"/ self halt.
+        "/ usually done, when syntax highlighting or looking for used variables
+        "/ self halt.
     ] ifFalse:[
-	"/ Raise an error.
-	"/ For backward compatibility, if error IS NOT handled and requestor
-	"/ IS set, then dispatch to requestor.
-
-	"/ backward compatibility - will vanish eventually (use a handler, Luke)
-	("ParseError isHandled not and: ["requestor notNil"]") ifTrue:[
-	    requestor error:aMessage position:position to:endPos from:self.
-	    ^ self
-	].
-	true "ParseError isHandled" ifTrue:[
-	    ParseError new
-		errorMessage:aMessage startPosition:position endPosition:endPos;
-		parameter:self;
-		lineNumber:tokenLineNr; "lineNr"
-		raiseRequest.
-	    ^ self
-	].
-	self showErrorMessage:aMessage position:position.
+        "/ Raise an error.
+        "/ For backward compatibility, if error IS NOT handled and requestor
+        "/ IS set, then dispatch to requestor.
+
+        "/ backward compatibility - will vanish eventually (use a handler, Luke)
+        ("ParseError isHandled not and: ["requestor notNil"]") ifTrue:[
+            requestor error:aMessage position:position to:endPos from:self.
+            ^ self
+        ].
+        true "ParseError isHandled" ifTrue:[
+            ParseError new
+                errorMessage:aMessage startPosition:position endPosition:endPos;
+                parameter:self;
+                lineNumber:tokenLineNr; "lineNr"
+                raiseRequest.
+            ^ self
+        ].
+        self showErrorMessage:aMessage position:position.
     ].
 
     "Modified: / 18-01-2012 / 14:54:22 / Alexander Zottnick"
     "Modified: / 19-01-2012 / 10:18:36 / cg"
     "Modified: / 02-05-2014 / 14:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 19-04-2018 / 10:39:56 / stefan"
 !
 
 notifyWarning:aMessage doNotShowAgainAction:doNotShowAgainAction doNotShowAgainForThisMethodAction:doNotShowAgainForThisMethodAction position:position to:endPos