--- a/MiniDebugger.st	Sat Nov 05 13:28:54 2016 +0100
+++ b/MiniDebugger.st	Sat Nov 05 13:37:45 2016 +0100
@@ -1073,9 +1073,7 @@
     (Process allSubInstances sort:[:a :b | (a id ? -1)<(b id ? -1)]) do:[:p |
         |doShow|
 
-        doShow := (how == #all).
-        doShow := doShow or:[ (how == #dead) and:[ p isDead ]].
-        doShow := doShow or:[ (how ~~ #dead) and:[ p isDead not ]].
+        doShow := (how == #all) or:[ (how == #dead) == ( p isDead ) ]. 
         doShow ifTrue:[
             'proc id=' _errorPrint. (p id printStringPaddedTo:6) _errorPrint.
             (p state printStringPaddedTo:10) _errorPrint.