Index: svn/Repository.cls.xml
===================================================================
diff -u -r1713 -r1728
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1713)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1728)
@@ -383,6 +383,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SVNRevert">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
+	set tCmd.File=..ExternalName(InternalName)
+	set tCmd.SubCommand="revert"
+	do tCmd.Execute()
+]]></Implementation>
+</Method>
+
 <Method name="SVNExport">
 <FormalSpec>InternalName:%String</FormalSpec>
 </Method>
@@ -472,9 +482,8 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim AllreadyAdded As %Boolean = 0
 	
-	set AllreadyAdded = 0
-	
 	set svnCommand = ##class(svn.Command).%New($listbuild(..WorkspacePath(..Branch)))
 	set svnCommand.SubCommand="status"
 	set svnCommand.File = ..ExternalName(InternalName)
@@ -488,14 +497,13 @@
 	do svnCommand.Execute()
 
 	while ('svnCommand.Result.AtEnd) && ('AllreadyAdded) {
-		set Line = svnCommand.Result.ReadLine()
+		#dim Line As %String = svnCommand.Result.ReadLine()
 		if ($zconvert(Line,"U")[$zconvert(svnCommand.File,"U")) {
 			if $extract(Line)'="?" { 
 				set AllreadyAdded=1 
 			}
 		}
 	}
-
 	quit AllreadyAdded
 ]]></Implementation>
 </Method>
@@ -563,6 +571,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RevertChanges">
+<Implementation><![CDATA[
+	set listExternalNames = ##class(%ListOfDataTypes).%New()
+	
+	set itResults = ##class(TECH.ListIterator).%New(..Changes())
+	while itResults.HasNext() {
+		#dim svnInfo As svn.CommandResult = itResults.Next()
+		#dim ExternalName As %String = svnInfo.ExternalName
+		if $length(svnInfo.Action) && $length(ExternalName) {
+			do ..SVNRevert(..InternalName(ExternalName))
+			if svnInfo.Action = "A" {
+				do ..DeleteCode(..InternalName(ExternalName))	
+			} else {
+				do ..Import(ExternalName)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="SynchronizeChanges">
 <Implementation><![CDATA[
 	set listExternalNames = ##class(%ListOfDataTypes).%New()