--- a/EditTextView.st	Wed Oct 10 18:24:39 2018 +0200
+++ b/EditTextView.st	Fri Oct 12 12:08:13 2018 +0200
@@ -6991,6 +6991,8 @@
     |sel listOfPasteTextLines box history|
 
     history := device getCopyBufferHistory copy.
+
+    "/ the list presents each first line only
     listOfPasteTextLines := 
         history collect:[:entry |
             |text shown|
@@ -7478,6 +7480,8 @@
 
     text := self getTextSelectionFromHistory.
     text notNil ifTrue:[
+        "/ move to top of list.
+        device rememberInCopyBufferHistory:text.
         self pasteOrReplace:text
     ]