--- a/TimerQueueMonitor.st	Thu Nov 14 22:45:58 2019 +0100
+++ b/TimerQueueMonitor.st	Thu Nov 14 22:58:29 2019 +0100
@@ -128,9 +128,14 @@
 
 debugProcess
     self selectedEntriesDo:[:entry |
-        |process|
+        |process sema|
 
-        (process := entry at:'process' ifAbsent:[nil]) notNil ifTrue:[
+        (process := entry at:'process' ifAbsent:[nil]) isNil ifTrue:[
+            (sema := entry at:'sema' ifAbsent:[nil]) notNil ifTrue:[
+                process := sema waitingProcesses firstIfEmpty:nil
+            ]
+        ].
+        process notNil ifTrue:[
             Debugger openOn:process
         ]
     ]
@@ -151,7 +156,7 @@
         |sema|
 
         (sema := entry at:'sema' ifAbsent:[nil]) notNil ifTrue:[
-            self halt.
+            sema inspect.
         ]
     ]
 !
@@ -311,7 +316,7 @@
                 ].
                 deltaTime := TimeDuration milliseconds:millis.
 
-                line := (deltaTime printString) paddedTo:10.
+                line := (deltaTime printString) paddedTo:11.
                 line := line , ' ' , ((processName contractTo:40) paddedTo:40).
                 action notNil ifTrue:[
                     line := line , ' ' , (actionName contractTo:50) .