--- a/TextView.st	Wed Feb 08 00:57:18 2017 +0100
+++ b/TextView.st	Thu Feb 09 18:22:25 2017 +0100
@@ -2636,7 +2636,7 @@
                 ] ifFalse:[
                     UserPreferences current generateBackupFileWhenSaving ifTrue:[
                         filename exists ifTrue:[
-                            filename moveTo:(filename pathName,'.bak') asFilename
+                            filename moveTo:filename asBackupFilename.
                         ].
                     ].
                     aStream := filename newReadWriteStream.
@@ -2661,6 +2661,7 @@
     ^ true
 
     "Modified: / 27-07-2012 / 09:45:13 / cg"
+    "Modified: / 09-02-2017 / 13:30:41 / stefan"
 !
 
 search