--- a/WorkspaceApplication.st	Fri Jan 31 17:34:45 2020 +0100
+++ b/WorkspaceApplication.st	Sat Feb 01 12:11:25 2020 +0100
@@ -3328,6 +3328,9 @@
                 s nextPutAll:crypted.
             ].
             ws defaultFileNameForFileDialog:file asFilename baseName.
+            ws isCodeView2 ifTrue:[
+                ws beUnmodified
+            ]
         ]
 !