--- a/reports/Builder__LintReportFormat.st	Mon Dec 15 12:35:33 2014 +0100
+++ b/reports/Builder__LintReportFormat.st	Mon Dec 15 12:35:36 2014 +0100
@@ -33,6 +33,17 @@
     "Created: / 04-08-2011 / 11:44:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!LintReportFormat methodsFor:'writing'!
+
+writeSource: source to: sourceFilename
+    (report outputDirectory / sourceFilename) writingFileDo:[ :s |
+        source fileOutOn: s
+    ].
+
+    "Created: / 07-10-2011 / 10:19:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 15-12-2014 / 11:19:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !LintReportFormat::CheckStyle class methodsFor:'accessing'!
 
 symbolicNames
@@ -80,23 +91,6 @@
     "Modified: / 06-10-2011 / 23:50:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-writeSource: source to: sourceFilename
-
-    | sourceFile sourceStream |
-
-    sourceFile := report outputDirectory / sourceFilename.
-    [
-        sourceStream := sourceFile writeStream.
-        sourceStream nextPutAll: source
-    ] ensure:[
-        sourceStream notNil ifTrue:[
-            sourceStream close.
-        ]
-    ]
-
-    "Created: / 07-10-2011 / 10:19:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 writeViolation:rule class: aClass selector: aSelector startLine:line column:column stopLine:lineStop column:columnStop
 
     | severity |
@@ -166,23 +160,6 @@
     "Modified: / 25-11-2011 / 19:39:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-writeSource: source to: sourceFilename
-
-    | sourceFile sourceStream |
-
-    sourceFile := report outputDirectory / sourceFilename.
-    [
-        sourceStream := sourceFile writeStream.
-        sourceStream nextPutAll: source
-    ] ensure:[
-        sourceStream notNil ifTrue:[
-            sourceStream close.
-        ]
-    ]
-
-    "Created: / 07-10-2011 / 10:19:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 writeViolation:rule class: aClass selector: aSelector startLine:beginLine column:beginColumn stopLine:endLine column:endColumn
 
     | priority |
@@ -233,5 +210,6 @@
 !
 
 version_SVN
-    ^ '§Id: Builder__LintReportFormat.st 294 2011-11-27 11:08:02Z vranyj1 §'
+    ^ '$Id$'
 ! !
+