--- a/mercurial/HGRepository.st	Wed Mar 23 19:49:08 2016 +0100
+++ b/mercurial/HGRepository.st	Wed Mar 23 19:50:57 2016 +0100
@@ -198,11 +198,16 @@
     f isDirectory ifFalse:[
         f := f directory
     ].
+    'h1' errorPrintCR.
     [ ( f / '.hg' ) exists ] whileFalse:[
-        f pathName errorPrint.
-        f isRootDirectory ifTrue:[ ^nil ].
+        f pathName errorPrintCR.
+        f isRootDirectory ifTrue:[ 
+           'hX' errorPrintCR.
+            ^ nil 
+        ].
         f := f directory.
     ].
+    'h2' errorPrintCR.
     ^f
 
     "Created: / 13-11-2012 / 22:34:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"