diff -r 19c6e1b8dfff -r 74ff0960961c SVN__InfoCommand.st
--- a/SVN__InfoCommand.st	Mon Oct 19 14:25:27 2009 +0200
+++ b/SVN__InfoCommand.st	Mon Oct 19 14:52:48 2009 +0200
@@ -2,7 +2,7 @@
 
 "{ NameSpace: SVN }"
 
-nil subclass:#InfoCommand
+WCPathCommand subclass:#InfoCommand
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -21,30 +21,30 @@
     "Modified: / 15-06-2009 / 12:06:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-svnCmdArgumentsOn:arg 
+svnCmdArgumentsOn:arg
     "raise an error: must be redefined in concrete subclass(es)"
 
-    arg 
-        nextPut:'--xml'
+    arg
+	nextPut:'--xml'
 
     "Created: / 15-03-2008 / 21:56:01 / janfrog"
     "Modified: / 15-06-2009 / 12:18:12 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-svnParseXML: doc 
-    ^ ((doc root childNodes 
-        collect: [:entryNode | WCEntryInfo readFromXml: entryNode ]) 
-            asSortedCollection: [:a :b | a path < b path ]) asOrderedCollection
+svnParseXML: doc
+    ^ ((doc root childNodes
+	collect: [:entryNode | WCEntryInfo readFromXml: entryNode ])
+	    asSortedCollection: [:a :b | a path < b path ]) asOrderedCollection
 
     "Created: / 15-03-2008 / 22:05:01 / janfrog"
     "Modified: / 16-03-2008 / 08:44:49 / janfrog"
     "Modified: / 15-06-2009 / 12:23:17 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-svnProcessCommandOutput:out err:err 
+svnProcessCommandOutput:out err:err
     ^ self svnParseXML:((XML::XMLParser on:out)
-                validate:false;
-                scanDocument)
+		validate:false;
+		scanDocument)
 
     "Created: / 03-10-2008 / 16:31:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !