--- a/TextView.st	Tue Jun 07 03:37:19 2016 +0000
+++ b/TextView.st	Wed Jun 08 11:37:53 2016 +0200
@@ -2584,6 +2584,11 @@
                         with:filename name.
         ] ifTrue:[
             [
+                UserPreferences current generateBackupFileWhenSaving ifTrue:[
+                    filename exists ifTrue:[
+                        filename moveTo:(filename pathName,'.bak') asFilename
+                    ].    
+                ].    
                 doAppend ifTrue:[
                     aStream := filename appendingWriteStream.
                 ] ifFalse:[