Index: TECH/File.cls.xml
===================================================================
diff -u -r748 -r788
--- TECH/File.cls.xml	(.../File.cls.xml)	(revision 748)
+++ TECH/File.cls.xml	(.../File.cls.xml)	(revision 788)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408)" ts="2011-01-31 13:03:05">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-03 16:56:48">
 <Class name="TECH.File">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Library.File</Super>
-<TimeChanged>62117,42872.648187</TimeChanged>
+<TimeChanged>62124,36966.520392</TimeChanged>
 <TimeCreated>62118,40201.173604</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -26,23 +26,28 @@
 <Method name="RemoveDirectoryTree">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Directory:%String</FormalSpec>
+<ReturnType>%Library.Integer</ReturnType>
 <Implementation><![CDATA[
+	#if $system.Version.GetMajor()=5
+	
 	// Uitlezen van alle bestanden in de directory
 	Set ResultSet = ##class(%ResultSet).%New("%File:FileSet")
 	Do ResultSet.Execute(Directory,"*")
-	While(ResultSet.Next())
-	{
+	While(ResultSet.Next()) {
 		Set FileLocation = ResultSet.Data("Name")
-		If (##class(%File).DirectoryExists(FileLocation))
-		{
+		If (..DirectoryExists(FileLocation)) {
 			Do ..Delete(FileLocation)
+		} Else	{
+			Do ..Delete(FileLocation)
 		}
-		Else
-		{
-			Do ##class(%File).Delete(FileLocation)
-		}
 	}
-	Do ##class(%File).RemoveDirectory(Directory)
+	Quit ..RemoveDirectory(Directory)
+	
+	#else
+	
+	quit ##super(Directory)
+	
+	#endif
 ]]></Implementation>
 </Method>
 
@@ -56,5 +61,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="222568097"/>
+<Checksum value="3819800779"/>
 </Export>