diff --git a/ChangeLog b/ChangeLog
index 630df59c166631de65fbb53a06dfee1a49cb7e71..51efe19b63de04800f30b7a79baeacc75a1a9b58 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -6,6 +6,9 @@ CVS code -
 	- Username tab completion code, and cleaned up existing tabcomp
 	  code. New functions real_dir_from_tide(), append_slash_if_dir(),
 	  username_tab_completion is more than a stub now =-).
+- files.c:
+  write_file()
+	- Unsetting modified on temp files bug fixed (Rocco Corsi).
 
 nano 0.9.21 - 11/23/2000
 - AUTHORS
diff --git a/files.c b/files.c
index ed88dce3f750a96a5d2955f8d15e5a2fe4eee95c..4500248f2392c16fee13de044159dd20227f2a3c 100644
--- a/files.c
+++ b/files.c
@@ -446,9 +446,9 @@ int write_file(char *name, int tmp)
     if (!tmp) {
 	strncpy(filename, realname, 132);
 	statusbar(_("Wrote %d lines"), lineswritten);
+        UNSET(MODIFIED);
+        titlebar();
     }
-    UNSET(MODIFIED);
-    titlebar();
     return 1;
 }
 
diff --git a/po/nano.pot b/po/nano.pot
index 09c8af4a7a9ddd002fdc38b68d1843a8ab905334..662c33a2724712391ed8b9337b814bb3084764f9 100644
--- a/po/nano.pot
+++ b/po/nano.pot
@@ -6,7 +6,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: PACKAGE VERSION\n"
-"POT-Creation-Date: 2000-11-24 09:02-0500\n"
+"POT-Creation-Date: 2000-11-24 09:04-0500\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"