Index: svn/Helper.cls.xml
===================================================================
diff -u -r1523 -r1524
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1523)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1524)
@@ -1311,7 +1311,9 @@
 
 	set File=##class(%FileCharacterStream).%New()
 	set File.Filename=ExternalName
-	do File.CopyFrom(strRoutine)
+	while 'strRoutine.AtEnd {
+		do File.WriteLine(strRoutine.ReadLine())
+	}
 	
 	set Status=File.SaveStream()
 	quit Status
@@ -1373,8 +1375,9 @@
 	set File=##class(%FileCharacterStream).%New()
 	set File.Filename=ExternalName
 	do Routine.Clear()
-	do Routine.CopyFrom(File)
-	
+	while 'File.AtEnd {
+		do Routine.WriteLine(File.ReadLine())	
+	}
 	set Status = Routine.Save()
 	
 	quit Status