--- a/reports/Builder__ChangeReport.st	Tue Dec 16 11:44:00 2014 +0100
+++ b/reports/Builder__ChangeReport.st	Tue Feb 17 16:31:02 2015 +0100
@@ -83,11 +83,10 @@
 !ChangeReport methodsFor:'running'!
 
 run
-	| stream |
-	stream := FileDirectory default containingDirectory
-		forceNewFileNamed: 'changelog.xml'.
-	[ self generateOn: stream ]
-		ensure: [ stream close ]
+        | stream |
+        stream := (Filename defaultDirectory directory / 'changelog.xml') writeStream.
+        [ self generateOn: stream ]
+                ensure: [ stream close ]
 ! !
 
 !ChangeReport class methodsFor:'documentation'!
@@ -101,5 +100,6 @@
 !
 
 version_SVN
-    ^ '§Id: Builder__ChangeReport.st 191 2011-08-06 20:59:23Z vranyj1 §'
+    ^ '$Id$'
 ! !
+