--- a/MercurialSourceCodeManager.st	Fri Feb 08 19:40:56 2013 +0100
+++ b/MercurialSourceCodeManager.st	Fri Feb 08 19:41:26 2013 +0100
@@ -59,9 +59,9 @@
 !
 
 initialize
-    | s ok |
+    | s |
 
-    HGCommandSemaphore := Semaphore new:10.    "/ at most 10 hg activities concurrently
+    HGCommandSemaphore := (Semaphore new:10) name:'Concurrent Mercurial Commands'.    "/ at most 10 hg activities concurrently
     HGCommitOptions := ''.
     HGUpdateOptions := ''.
     DisabledModules := nil.
@@ -417,11 +417,12 @@
 !MercurialSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MercurialSourceCodeManager.st,v 1.6 2012-09-26 16:32:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MercurialSourceCodeManager.st,v 1.7 2013-02-08 18:41:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MercurialSourceCodeManager.st,v 1.6 2012-09-26 16:32:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MercurialSourceCodeManager.st,v 1.7 2013-02-08 18:41:26 stefan Exp $'
 ! !
 
+
 MercurialSourceCodeManager initialize!