--- a/TextView.st	Wed Jun 08 11:37:53 2016 +0200
+++ b/TextView.st	Wed Jun 08 11:38:23 2016 +0200
@@ -2584,14 +2584,14 @@
                         with:filename name.
         ] ifTrue:[
             [
-                UserPreferences current generateBackupFileWhenSaving ifTrue:[
-                    filename exists ifTrue:[
-                        filename moveTo:(filename pathName,'.bak') asFilename
-                    ].    
-                ].    
                 doAppend ifTrue:[
                     aStream := filename appendingWriteStream.
                 ] ifFalse:[
+                    UserPreferences current generateBackupFileWhenSaving ifTrue:[
+                        filename exists ifTrue:[
+                            filename moveTo:(filename pathName,'.bak') asFilename
+                        ].    
+                    ].    
                     aStream := filename newReadWriteStream.
                 ].
                 aStream eolMode:eolMode.