diff -r 85013d80986f -r 62881b8bd163 ReadEvalPrintLoop.st
--- a/ReadEvalPrintLoop.st	Mon May 07 08:12:12 2018 +0200
+++ b/ReadEvalPrintLoop.st	Mon May 07 08:17:02 2018 +0200
@@ -685,29 +685,39 @@
 cmd_setOrClear:lineStream to:aBoolean
     "set/clear one of my internal flags"
 
-    |what|
+    |what param flag|
+
+    flag := aBoolean.
 
     lineStream skipSeparators.
     what := lineStream nextAlphaNumericWord.
+    flag ifTrue:[
+        lineStream atEnd ifFalse:[
+            lineStream skipSeparators.
+            param := lineStream nextAlphaNumericWord.
+            flag := (param startsWith: 'f') not.
+        ].
+    ].
+
     what notNil ifTrue:[
         (what startsWith:'tra') ifTrue:[
-            traceFlag := aBoolean.
+            traceFlag := flag.
             ^ self.
         ].
         (what startsWith:'tim') ifTrue:[
-            timingFlag := aBoolean.
+            timingFlag := flag.
             ^ self.
         ].
         (what startsWith:'pro') ifTrue:[
-            profilingFlag := aBoolean.
+            profilingFlag := flag.
             ^ self.
         ].
         (what startsWith:'chunk') ifTrue:[
-            doChunkFormat := aBoolean.
+            doChunkFormat := flag.
             ^ self.
         ].
         (what startsWith:'edi') ifTrue:[
-            aBoolean ifTrue:[
+            flag ifTrue:[
                 "/ set editor cmd
                 lineStream skipSeparators.
                 editorCommand := lineStream upToEnd.
@@ -717,15 +727,15 @@
             ^ self.
         ].
         (what startsWith:'con') ifTrue:[
-            confirmDebugger := aBoolean.
+            confirmDebugger := flag.
             ^ self.
         ].
         (what startsWith:'node') ifTrue:[
-            noDebugger := aBoolean.
+            noDebugger := flag.
             ^ self.
         ].
         (what startsWith:'pri') ifTrue:[
-            printFlag := aBoolean.
+            printFlag := flag.
             ^ self.
         ].
     ].
@@ -1065,7 +1075,7 @@
         ) ifTrue:[
             "abortAll is handled, but not asked for here!!"
             AbortAllOperationRequest handle:[:ex |
-                error nextPutLine:('Evaluation aborted: ', ex description)
+                error nextPutLine:('Evaluation aborted.')
             ] do:[
                 (Error, ControlInterrupt) handle:[:ex |
                     prompt isNil ifTrue:[