--- a/ReadEvalPrintLoop.st	Sat Nov 05 12:52:56 2016 +0100
+++ b/ReadEvalPrintLoop.st	Sat Nov 05 12:55:54 2016 +0100
@@ -328,7 +328,8 @@
     what notNil ifTrue:[
         showAll := (what startsWith:'all').
         
-        (showAll or:[ what startsWith:'var' ]) ifTrue:[
+        (showAll or:[ what startsWith:'var' ]) ifTrue:[                      
+            showAll ifTrue:[ errStream nextPutLine:'Variables:'; nextPutLine:'----------' ].
             Workspace notNil ifTrue:[
                 Workspace workspaceVariables keys asOrderedCollection sort do:[:nm |
                     |holder|
@@ -337,10 +338,12 @@
                 ].
             ].
         ].
-        (showAll or:[ what startsWith:'proc' ]) ifTrue:[
+        (showAll or:[ what startsWith:'proc' ]) ifTrue:[                    
+            showAll ifTrue:[ errStream nextPutLine:'Threads:'; nextPutLine:'--------' ].
             MiniDebugger basicNew showProcesses.
         ].
         (showAll or:[ what startsWith:'mod' ]) ifTrue:[
+            showAll ifTrue:[ errStream nextPutLine:'Modules:'; nextPutLine:'--------' ].
             printModule :=
                 [:mod |
                     errStream
@@ -363,6 +366,7 @@
         (showAll or:[ what startsWith:'mem' ]) ifTrue:[
             |allMem|
             
+            showAll ifTrue:[ errStream nextPutLine:'Memory:'; nextPutLine:'-------' ].
             allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed
                                              + ObjectMemory newSpaceUsed.
             errStream
@@ -373,6 +377,7 @@
                 nextPutLine:('majorGC: ',(ObjectMemory garbageCollectCount) printString).
         ].
         (showAll or:[ what startsWith:'flag' ]) ifTrue:[
+            showAll ifTrue:[ errStream nextPutLine:'Flags:'; nextPutLine:'------' ].
             errStream
                 nextPutLine:('trace :      ',traceFlag printString);
                 nextPutLine:('timing:      ',timingFlag printString);