--- a/SVN__WCEntry.st	Wed Feb 08 01:52:09 2012 +0100
+++ b/SVN__WCEntry.st	Wed Feb 08 01:52:17 2012 +0100
@@ -28,7 +28,7 @@
 "{ NameSpace: SVN }"
 
 Entry subclass:#WCEntry
-	instanceVariableNames:'wc status'
+	instanceVariableNames:'wc status include'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SVN-Working copy'
@@ -152,6 +152,22 @@
     "Modified: / 09-12-2009 / 16:05:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+include
+    "Returns true if the entry should be included in commit, false otherwise"
+
+    ^ include
+
+    "Modified (comment): / 07-02-2012 / 23:04:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+include:aBoolean
+    "Sets whether the entry should be included in commit or not"
+
+    include := aBoolean.
+
+    "Modified (comment): / 07-02-2012 / 23:04:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 kind
 
     kind ifNil:
@@ -220,9 +236,10 @@
 
 readFromXml: xmlNode
 
+    include := true.
     path := xmlNode @ 'path'.
     status := Status withName: (xmlNode / 'wc-status' @ 'item').
-    (status isUnversioned or:[status isAdded or:[status isExternal]]) ifFalse:
+    (status isUnversioned or:[status isAdded or:[status isExternal or:[status isMissing]]]) ifFalse:
         [| commitNode |
         commitNode := xmlNode / 'wc-status' / 'commit'.
         revision := (commitNode first
@@ -233,7 +250,7 @@
 
     "Modified: / 06-04-2008 / 21:36:51 / janfrog"
     "Created: / 18-08-2009 / 14:28:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 09-04-2010 / 14:19:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-02-2012 / 23:04:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !WCEntry methodsFor:'presentation'!