diff --git a/src/BufferView2.C b/src/BufferView2.C
index 9641a26017..c1bfcb34d3 100644
--- a/src/BufferView2.C
+++ b/src/BufferView2.C
@@ -264,10 +264,6 @@ void BufferView::copyEnvironment()
 {
 	if (available()) {
 		text->copyEnvironmentType();
-		// clear the selection, even if mark_set
-		toggleSelection();
-		text->clearSelection();
-		update(text, BufferView::SELECT|BufferView::FITCUR);
 		owner()->message(_("Paragraph environment type copied"));
 	}
 }
@@ -287,12 +283,6 @@ void BufferView::copy()
 {
 	if (available()) {
 		text->copySelection(this);
-#if 0
-		// clear the selection, even if mark_set
-		toggleSelection();
-		text->clearSelection();
-		update(text, BufferView::SELECT|BufferView::FITCUR);
-#endif
 		owner()->message(_("Copy"));
 	}
 }
diff --git a/src/ChangeLog b/src/ChangeLog
index d5a2c132ca..8f1b003f6f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2001-11-27  Jean-Marc Lasgouttes  <Jean-Marc.Lasgouttes@inria.fr>
 
+	* BufferView2.C (copy): 
+	(copyEnvironment): do not clear the selection when doing a copy.
+
 	* text.C (paintFirstRow): compilation fix
 
 2001-11-27  Ben Stanley  <bds02@uow.edu.au>