--- a/mercurial/HGRepository.st	Wed Mar 23 19:56:54 2016 +0100
+++ b/mercurial/HGRepository.st	Wed Mar 23 20:17:25 2016 +0100
@@ -199,9 +199,11 @@
         f := f directory
     ].
     [ ( f / '.hg' ) exists ] whileFalse:[
-        f pathName errorPrintCR.
+        "/ f pathName errorPrintCR.
         f isRootDirectory ifTrue:[^ nil].
         parent := f directory.
+        "/ workaround: a network/shared folder seems to be not detected
+        "/ as a root folder in a VM.
         parent pathName = f pathName ifTrue:[^ nil].
         f := parent.
     ].