Index: TECH/File.cls.xml
===================================================================
diff -u -r1074 -r2047
--- TECH/File.cls.xml	(.../File.cls.xml)	(revision 1074)
+++ TECH/File.cls.xml	(.../File.cls.xml)	(revision 2047)
@@ -5,6 +5,13 @@
 <Super>%Library.File</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="GeefBestandsnaam">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BestandLocatie:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ##class(%File).GetFilename(BestandLocatie)
+]]></Implementation>
+</Method>
+
 <Method name="ParentDirectoryName">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>directory:%String</FormalSpec>