diff --git a/ChangeLog b/ChangeLog
index 97aafe6f..10d88a3c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2013-04-07 Michael Berg <mike@berg-net.us>
+	* do_cut_text - Fix copying (not cutting) text setting Modified state.  Fixes
+	  issue reported by Benno Schulenberg.
+
 GNU nano 2.3.2 - 2011.03.23
 2013-03-17 Chris Allegretta <chrisa@asty.org>
         * Revert r4547 as we should have a new release and the overlap code is not yet
diff --git a/src/cut.c b/src/cut.c
index d9a60837..60a1533a 100644
--- a/src/cut.c
+++ b/src/cut.c
@@ -209,7 +209,9 @@ void do_cut_text(
 #endif
 	/* Leave the text in the cutbuffer, and mark the file as
 	 * modified. */
-	set_modified();
+  if (!copy_text) {
+	  set_modified();
+  }
 
     /* Update the screen. */
     edit_refresh_needed = TRUE;