--- a/mercurial/HGCommitDialog.st	Sat Nov 17 01:10:55 2012 +0000
+++ b/mercurial/HGCommitDialog.st	Sat Nov 17 01:11:36 2012 +0000
@@ -11,9 +11,10 @@
 !HGCommitDialog class methodsFor:'image specs'!
 
 dialogIcon
-    ^ HGIconLibrary hgLogo1
+    ^ HGIconLibrary hgLogo2
 
     "Created: / 14-11-2012 / 00:14:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-11-2012 / 11:01:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGCommitDialog class methodsFor:'interface specs'!
@@ -126,18 +127,22 @@
 
     wcroot := self model package root.
     wcrootPathNameRelative := wcroot pathNameRelative.
-    wcrootPathNameRelativeLen := wcrootPathNameRelative size + 2.
+    wcrootPathNameRelativeLen := wcrootPathNameRelative size.
+
     statuses := HGCommand status
                     workingDirectory: wcroot pathName;
                     execute.
     entries := OrderedCollection new: statuses size.
     statuses do:[:statusAndPath|
-        (fileListShowOnlyModifiedHolder not
+        (fileListShowOnlyModifiedHolder value not
             or:[statusAndPath first isCleanOrIgnored not]) ifTrue:[
             | nm entry |
 
             (statusAndPath second startsWith: wcrootPathNameRelative) ifTrue:[
-                nm := (statusAndPath second copyFrom:wcrootPathNameRelativeLen).
+                nm := statusAndPath second.
+                wcrootPathNameRelativeLen ~~ 0 ifTrue:[
+                    nm := nm copyFrom:wcrootPathNameRelativeLen + 2.
+                ].
                 entry := SCMAbstractCommitDialog::FileEntry application: self entry: wcroot / nm name: nm.
                 entries add: entry
             ].
@@ -146,7 +151,7 @@
     self fileListHolder value: entries
 
     "Created: / 08-02-2012 / 18:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 15-11-2012 / 10:09:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-11-2012 / 11:27:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGCommitDialog class methodsFor:'documentation'!