Index: zTryout/KCA/TECH/File/impl/FileReader.cls.xml
===================================================================
diff -u -r57047 -r57060
--- zTryout/KCA/TECH/File/impl/FileReader.cls.xml	(.../FileReader.cls.xml)	(revision 57047)
+++ zTryout/KCA/TECH/File/impl/FileReader.cls.xml	(.../FileReader.cls.xml)	(revision 57060)
@@ -5,7 +5,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject,TECH.File.FileReader</Super>
 
-<Property name="Bestand">
+<Property name="VolledigeBestandsNaam">
 <Type>%String</Type>
 <Private>1</Private>
 <Parameter name="TRUNCATE" value="1"/>
@@ -18,20 +18,20 @@
 
 <Method name="%OnNew">
 <Description>
-Bestand : Directory + bestand</Description>
-<FormalSpec>Bestand:%String</FormalSpec>
+VolledigeBestandsNaam : Directory + bestand</Description>
+<FormalSpec>VolledigeBestandsNaam:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	
-	Set ..Bestand = Bestand
+	Set ..VolledigeBestandsNaam = VolledigeBestandsNaam
 	
-	If ##class(TECH.File).Exists(..Bestand)
+	If ##class(TECH.File).Exists(..VolledigeBestandsNaam)
 	{
 		Set ..Stream = ##class(%FileCharacterStream).%New()
-		Set ..Stream.Filename = ..Bestand
+		Set ..Stream.Filename = ..VolledigeBestandsNaam
 		Do ..Stream.Rewind()
 	}Else{
-		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Het bestand '"_..Bestand_"' bestaat niet.")
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Het VolledigeBestandsNaam '"_..VolledigeBestandsNaam_"' bestaat niet.")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	Quit $$$OK
@@ -61,7 +61,7 @@
 	If ('..Stream.AtEnd){
 		Set Line = ..Stream.ReadLine()
 	} Else { 
-		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Einde van bestand  '"_..Bestand_"' reeds bereikt.")
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Einde van VolledigeBestandsNaam  '"_..VolledigeBestandsNaam_"' reeds bereikt.")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception) 
 	}
 	Quit Line