--- a/TimerQueueMonitor.st	Thu Nov 14 22:41:45 2019 +0100
+++ b/TimerQueueMonitor.st	Thu Nov 14 22:45:58 2019 +0100
@@ -287,6 +287,12 @@
                 process := aTimeout at:'process'.
                 sema := aTimeout at:'sema'.
 
+                process isNil ifTrue:[
+                    sema notNil ifTrue:[
+                        process := sema waitingProcesses firstIfEmpty:nil
+                    ]
+                ].
+
                 processName := process isNil ifTrue:[''] ifFalse:[process name].
                 actionName := action isNil ifTrue:[''] ifFalse:[action printString].
                 semaName := sema isNil ifTrue:[''] ifFalse:[sema displayString].