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>