--- a/TerminalView.st	Tue Mar 06 19:41:48 2018 +0100
+++ b/TerminalView.st	Wed Mar 07 15:47:48 2018 +0100
@@ -2848,8 +2848,18 @@
 !
 
 copySelection
+    "the inherited code would leave the cursor behin the selection;
+     we always want it to stay at the end.
+     However: cursorToEndOfText ignores trailing spaces!!
+    "
+
+    |cLine cCol|
+
+    cLine := cursorLine.
+    cCol := cursorCol.
     super copySelection.
-    self cursorToEndOfText
+    "/ self cursorToEndOfText
+    self cursorLine:cLine col:cCol.
 !
 
 paste:someText