ReadEvalPrintLoop.st
changeset 20836 f3404ea02bb7
parent 20835 ce8d50491138
child 20845 d192dae88051
--- a/ReadEvalPrintLoop.st	Sat Nov 05 12:55:54 2016 +0100
+++ b/ReadEvalPrintLoop.st	Sat Nov 05 12:56:52 2016 +0100
@@ -339,11 +339,11 @@
             ].
         ].
         (showAll or:[ what startsWith:'proc' ]) ifTrue:[                    
-            showAll ifTrue:[ errStream nextPutLine:'Threads:'; nextPutLine:'--------' ].
+            showAll ifTrue:[ errStream cr; nextPutLine:'Threads:'; nextPutLine:'--------' ].
             MiniDebugger basicNew showProcesses.
         ].
         (showAll or:[ what startsWith:'mod' ]) ifTrue:[
-            showAll ifTrue:[ errStream nextPutLine:'Modules:'; nextPutLine:'--------' ].
+            showAll ifTrue:[ errStream cr; nextPutLine:'Modules:'; nextPutLine:'--------' ].
             printModule :=
                 [:mod |
                     errStream
@@ -366,7 +366,7 @@
         (showAll or:[ what startsWith:'mem' ]) ifTrue:[
             |allMem|
             
-            showAll ifTrue:[ errStream nextPutLine:'Memory:'; nextPutLine:'-------' ].
+            showAll ifTrue:[ errStream cr; nextPutLine:'Memory:'; nextPutLine:'-------' ].
             allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed
                                              + ObjectMemory newSpaceUsed.
             errStream
@@ -377,7 +377,7 @@
                 nextPutLine:('majorGC: ',(ObjectMemory garbageCollectCount) printString).
         ].
         (showAll or:[ what startsWith:'flag' ]) ifTrue:[
-            showAll ifTrue:[ errStream nextPutLine:'Flags:'; nextPutLine:'------' ].
+            showAll ifTrue:[ errStream cr; nextPutLine:'Flags:'; nextPutLine:'------' ].
             errStream
                 nextPutLine:('trace :      ',traceFlag printString);
                 nextPutLine:('timing:      ',timingFlag printString);