--- a/TextView.st	Tue Jun 07 06:40:28 2016 +0200
+++ b/TextView.st	Thu Jun 09 08:35:56 2016 +0100
@@ -2587,6 +2587,11 @@
 		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.