Index: svn/Helper.cls.xml
===================================================================
diff -u -r1709 -r1710
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1709)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1710)
@@ -719,6 +719,40 @@
 <Implementation><![CDATA[	quit $IsObject(..GeefRepository(InternalName))
 ]]></Implementation>
 </Method>
+
+<Method name="RemoveUnversioned">
+<FormalSpec>Path:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	set tCmd=##class(svn.Command).%New($lb(Path))
+	set tCmd.SubCommand="status"
+	set tCmd.Reload = 1
+	set tCmd.File=Path
+	do tCmd.Execute()
+	Set ResultIt = ##class(TECH.ListIterator).%New(tCmd.Results)
+	Do ##class(zTryout.PBO.Scripts.Wlip).%New("26").String("RemoveUnversioned "_Path)
+	While ResultIt.HasNext() {
+		#dim CommandResult As svn.CommandResult	= ResultIt.Next()
+		Do ##class(zTryout.PBO.Scripts.Wlip).%New("26").String("Action: "_CommandResult.Action)
+		If CommandResult.Action = "?" {
+			#dim UnversionedPath As TECH.String = CommandResult.ExternalName
+			Do ##class(zTryout.PBO.Scripts.Wlip).%New("26").String(CommandResult.ExternalName)
+			If ##class(TECH.File).DirectoryExists(UnversionedPath)  Do ##class(TECH.Context).Instance().GeefFileAPI().GeefDirectoryUtils().Delete(UnversionedPath)
+			Else  Do ##class(TECH.File).Delete(UnversionedPath)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CleanUp">
+<FormalSpec>Path:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	set tCmd=##class(svn.Command).%New($lb(Path))
+	set tCmd.SubCommand="cleanup"
+	set tCmd.Reload = 1
+	set tCmd.File=Path
+	do tCmd.Execute()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: svn/Command.cls.xml
===================================================================
diff -u -r1685 -r1710
--- svn/Command.cls.xml	(.../Command.cls.xml)	(revision 1685)
+++ svn/Command.cls.xml	(.../Command.cls.xml)	(revision 1710)
@@ -290,7 +290,7 @@
 		set tLine=$zstrip($e(pLine,9,$length(pLine)),"=",$$$SPACE)
 		set tResult.Action=$e(pLine,1)
 		set tLen=$l(tLine,$$$SPACE)
-		set tResult.ExternalName=$p(tLine,$$$SPACE,tLen)
+		set tResult.ExternalName=tLine
 		set tResult.Properties=$e(pLine,2)
 		set tResult.Lock=$e(pLine,3)
 		set tResult.History=$e(pLine,4)
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1708 -r1710
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1708)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1710)
@@ -73,6 +73,10 @@
 
 <Method name="Revert">
 <Implementation><![CDATA[
+	Set SvnHelper = ##class(svn.Helper).%New()
+	Do SvnHelper.CleanUp(..WorkspacePath(..Branch))
+	Do SvnHelper.RemoveUnversioned(..WorkspacePath(..Branch))
+	
 	set tCmd=##class(svn.Command).%New($lb(..WorkspacePath(..Branch)))
 	set tCmd.SubCommand="revert"
 	do tCmd.Options.SetAt("","-R")