--- a/SemaphoreMonitor.st	Fri Jan 24 23:23:40 1997 +0100
+++ b/SemaphoreMonitor.st	Fri Jan 24 23:45:12 1997 +0100
@@ -67,13 +67,13 @@
 !SemaphoreMonitor methodsFor:'drawing'!
 
 titleLine
-    ^ ' id     name                   count waiting process(es)                   '.
+    ^ ' id     name                   count owner waiting process(es)                   '.
 
     "
      SemaphoreMonitor open
     "
 
-    "Modified: 24.1.1997 / 23:03:48 / cg"
+    "Modified: 24.1.1997 / 23:08:13 / cg"
 !
 
 updateList
@@ -118,7 +118,7 @@
             list add:(String new:self titleLine size withAll:$-).
 
             semaphores validElementsDo:[:aSemaphore |
-                |waiters waitersNames nm id str|
+                |waiters waitersNames nm id str owner|
 
                 waiters := aSemaphore waitingProcesses.
 
@@ -140,6 +140,12 @@
                     nm := ''
                 ].
                 id := aSemaphore identityHash bitShift:-12.
+                owner := aSemaphore lastOwnerId.
+                owner isNil ifTrue:[
+                    owner := '   '
+                ] ifFalse:[
+                    owner := owner printStringLeftPaddedTo:3
+                ].
                 list add:(
                           (id printStringPaddedTo:6)
                           , ' '
@@ -147,6 +153,8 @@
                           , ' '
                           , (aSemaphore count printStringLeftPaddedTo:3)
                           , ' '
+                          , owner
+                          , ' '
                           , (waiters size printStringLeftPaddedTo:3)
                           , ' '
                           , waitersNames).
@@ -174,18 +182,18 @@
     ]
 
     "Modified: 3.7.1996 / 13:56:01 / stefan"
-    "Modified: 24.1.1997 / 23:04:20 / cg"
+    "Modified: 24.1.1997 / 23:10:53 / cg"
 ! !
 
 !SemaphoreMonitor methodsFor:'menu'!
 
-inspectSelection
+inspectSemaphore
     "open an inspector on the selected semaphores"
 
     self selectedSemaphoresDo:[:aSema | aSema inspect]
 
-    "Created: 23.1.1997 / 03:11:46 / cg"
     "Modified: 23.1.1997 / 03:12:06 / cg"
+    "Created: 24.1.1997 / 23:11:50 / cg"
 !
 
 selectedSemaphoresDo:aBlock
@@ -291,5 +299,5 @@
 !SemaphoreMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.4 1997-01-24 22:05:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.5 1997-01-24 22:45:12 cg Exp $'
 ! !