--- a/MercurialSourceCodeManager.st	Thu Jun 02 09:19:54 2016 +0100
+++ b/MercurialSourceCodeManager.st	Mon Jun 06 12:32:59 2016 +0100
@@ -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.