Index: svn/Helper.cls.xml =================================================================== diff -u -r1710 -r1711 --- svn/Helper.cls.xml (.../Helper.cls.xml) (revision 1710) +++ svn/Helper.cls.xml (.../Helper.cls.xml) (revision 1711) @@ -729,13 +729,10 @@ 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) }