Index: trunk/Include/Classes/System/IO/FileStream.ab
===================================================================
--- trunk/Include/Classes/System/IO/FileStream.ab	(revision 473)
+++ trunk/Include/Classes/System/IO/FileStream.ab	(revision 474)
@@ -67,4 +67,8 @@
 		This.offset = 0
 		This.ownsHandle = True
+
+		If FileMode.Append = This.fileMode Then
+			Seek(0, SeekOrigin.End)
+		End If
 	End Sub
 	Sub FileStream(path As String, mode As FileMode, access As FileAccess, share As FileShare)