--- a/MercurialSourceCodeManager.st	Fri Jun 03 11:50:34 2016 +0200
+++ b/MercurialSourceCodeManager.st	Fri Jun 03 11:51:28 2016 +0200
@@ -65,10 +65,17 @@
     DisabledModules := nil.
 !
 
+hgCommandSemaphore
+    HGCommandSemaphore isNil ifTrue:[
+        HGCommandSemaphore := (Semaphore new:10) name:'Concurrent Mercurial Commands'.    "/ at most 10 hg activities concurrently
+    ].
+    ^ HGCommandSemaphore
+!
+
 initialize
     | s |
 
-    HGCommandSemaphore := (Semaphore new:10) name:'Concurrent Mercurial Commands'.    "/ at most 10 hg activities concurrently
+    "/ HGCommandSemaphore := (Semaphore new:10) name:'Concurrent Mercurial Commands'.    "/ at most 10 hg activities concurrently
     HGCommitOptions := ''.
     HGUpdateOptions := ''.
     DisabledModules := nil.