--- a/MiniDebugger.st	Tue Nov 08 14:44:27 2016 +0100
+++ b/MiniDebugger.st	Tue Nov 08 14:46:37 2016 +0100
@@ -1075,14 +1075,18 @@
 
         doShow := (how == #all) or:[ (how == #dead) == ( p isDead ) ]. 
         doShow ifTrue:[
-            'proc id=' _errorPrint. (p id printStringPaddedTo:6) _errorPrint.
+            'id=' _errorPrint. (p id printStringPaddedTo:6) _errorPrint.
             (p state printStringPaddedTo:10) _errorPrint.
             ' pri=' _errorPrint. (p priority printStringPaddedTo:2) _errorPrint.
             ' creator:' _errorPrint. (p creatorId printStringPaddedTo:5) _errorPrint.
             ' group:' _errorPrint. (p processGroupId printStringPaddedTo:5) _errorPrint.
             "/ ' sys:' _errorPrint. (p isSystemProcess ifTrue:'y' ifFalse:'n') _errorPrint.
-            (p isSystemProcess ifTrue:'sys' ifFalse:'usr') _errorPrint.
-            ' ui:' _errorPrint. (p isGUIProcess ifTrue:'y' ifFalse:'n') _errorPrint.
+            "/ ' ui:' _errorPrint. (p isGUIProcess ifTrue:'y' ifFalse:'n') _errorPrint.
+            (p isGUIProcess 
+                ifTrue:['gui']
+                ifFalse:[p isSystemProcess 
+                    ifTrue:['sys'] 
+                    ifFalse:['usr']]) _errorPrint.
             ' name=''' _errorPrint. p name _errorPrint.
             '''' _errorPrintCR.
         ]