Index: svn/Repository.cls.xml
===================================================================
diff -u -r1731 -r1741
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1731)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1741)
@@ -41,6 +41,11 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="ToBeRevertedSubfolder">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
 <Property name="SynchHasBeenValidated">
 <Type>%String</Type>
 <Collection>array</Collection>
@@ -56,8 +61,11 @@
 <Method name="CheckOut">
 <FormalSpec>Revision:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	if ..AutoRevert do ..UndoChanges()
-	
+	#dim ToBeRevertedSubfolder = ##class(TECH.ListIterator).%New(..ToBeRevertedSubfolder)
+	while ToBeRevertedSubfolder.HasNext() {
+		do ..UndoChanges(##class(TECH.Files).AppendSubPath(..WorkspacePath(..Branch),ToBeRevertedSubfolder.Next()))
+	}
+
 	set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
 	set tCmd.SubCommand="update"
 	Set tCmd.Revision= Revision
@@ -72,15 +80,16 @@
 </Method>
 
 <Method name="UndoChanges">
+<FormalSpec>Path:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set UnversionedPaths = ##class(%ListOfDataTypes).%New()
 	#dim IsRevertNeeded As %Boolean = $$$False
 	
-	set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
+	set tCmd=##class(svn.Command).%New($lb(Path))
 	set tCmd.SubCommand="status"
 	set tCmd.Reload = 1
-	set tCmd.File=..WorkspacePath(..Branch)
+	set tCmd.File=Path
 	do tCmd.Execute()
 	Set ResultIt = ##class(TECH.ListIterator).%New(tCmd.Results)
 	While ResultIt.HasNext() {
@@ -96,11 +105,11 @@
 	}
 	
 	If IsRevertNeeded {
-		set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
+		set tCmd=##class(svn.Command).%New($lb(Path))
 		set tCmd.SubCommand="revert"
 		do tCmd.Options.SetAt("","-R")
 		set tCmd.Reload = 1
-		set tCmd.File=..WorkspacePath(..Branch)
+		set tCmd.File=Path
 		do tCmd.Execute()
 		Do ..VerwerkResultaat(tCmd)
 	}
@@ -783,6 +792,11 @@
 <Value>AutoRevert</Value>
 </Value>
 </Data>
+<Data name="ToBeRevertedSubfolder">
+<Attribute>ToBeRevertedSubfolder</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"ToBeRevertedSubfolder"</Subscript>
+</Data>
 </Storage>
 </Class>