Index: TECH/File/FileWriter.cls.xml
===================================================================
diff -u -r2787 -r2878
--- TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 2787)
+++ TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 2878)
@@ -136,6 +136,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="WriteStream">
+<FormalSpec>Stream:%Stream</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ..FileCharacterStream.CopyFrom(Stream)
+	If $$$ISERR(Status){
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("Kon stream niet kopieren.",Status)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
 <Method name="GeefLockKey">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>