Index: TECH/Mail/impl/Mail.cls.xml
===================================================================
diff -u -r941 -r945
--- TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 941)
+++ TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 945)
@@ -113,9 +113,10 @@
 <FormalSpec>Stream:%Stream,Bestandsnaam:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Filename As %String = ##class(TECH.Files).AppendFile(##class(TECH.File).GetTempDir(),Bestandsnaam)
-	set File = ##class(TECH.File.impl.FileWriter).%New(Filename,1)
-	do File.WriteStream(Stream)
-	do File.Close()
+	#dim FileWriter As TECH.File.FileWriter= ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do FileWriter.Open(Filename, 1)
+	do FileWriter.WriteStream(Stream)
+	do FileWriter.Close()
 	do ..Bijlagen.Insert(Filename)
 	quit
 ]]></Implementation>