Index: TECH/File.cls.xml
===================================================================
diff -u -r1667 -r1669
--- TECH/File.cls.xml	(.../File.cls.xml)	(revision 1667)
+++ TECH/File.cls.xml	(.../File.cls.xml)	(revision 1669)
@@ -21,7 +21,12 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BestandNaam:TECH.String</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit $Piece(BestandNaam,".",$Length(BestandNaam, "."))
+<Implementation><![CDATA[
+	#dim Extensie As TECH.String = ""
+	If ##class(TECH.StringUtils).Contains(BestandNaam, ".") {
+		Set Extensie = $Piece(BestandNaam,".",$Length(BestandNaam, "."))
+	}
+	Quit Extensie
 ]]></Implementation>
 </Method>