Index: svn/Repository.cls.xml
===================================================================
diff -u -r1656 -r1673
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1656)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1673)
@@ -37,6 +37,10 @@
 <Transient>1</Transient>
 </Property>
 
+<Property name="AutoRevert">
+<Type>%Boolean</Type>
+</Property>
+
 <Property name="SynchHasBeenValidated">
 <Type>%String</Type>
 <Collection>array</Collection>
@@ -52,6 +56,8 @@
 <Method name="CheckOut">
 <FormalSpec>Revision:%String=""</FormalSpec>
 <Implementation><![CDATA[
+	if ..AutoRevert do ..Revert()
+	
 	set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
 	set tCmd.SubCommand="update"
 	Set tCmd.Revision= Revision
@@ -65,6 +71,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Revert">
+<Implementation><![CDATA[
+	set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
+	set tCmd.SubCommand="revert"
+	do tCmd.Options.SetAt("","-R")
+	set tCmd.Reload = 1
+	set tCmd.File=..WorkspacePath(..Branch)
+	do tCmd.Execute()
+	Do ..VerwerkResultaat(tCmd)
+]]></Implementation>
+</Method>
+
 <Method name="Status">
 <FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -703,6 +721,9 @@
 <Value name="7">
 <Value>ToCompile</Value>
 </Value>
+<Value name="8">
+<Value>AutoRevert</Value>
+</Value>
 </Data>
 </Storage>
 </Class>