--- a/EditTextView.st	Mon Jul 27 20:09:20 2015 +0200
+++ b/EditTextView.st	Wed Jul 29 10:23:12 2015 +0200
@@ -5043,8 +5043,9 @@
     ].
 
     (key == #Accept)  ifTrue:[^ self accept].
-
-    ((key == #Paste) or:[key == #Insert or:[key == #PasteFromHistory]]) ifTrue:[self pasteOrReplace. ^self].
+Transcript showCR:key.
+    (key == #PasteFromHistory) ifTrue:[self pasteOrReplaceFromHistory. ^self].
+    (key == #Paste or:[key == #Insert]) ifTrue:[self pasteOrReplaceByKeyPress. ^self].
     (key == #Cut) ifTrue:[self cut. ^self].
     (key == #Again) ifTrue:[self again. ^self].
     (key == #AgainForAll) ifTrue:[self multipleAgain. ^self].
@@ -6776,6 +6777,22 @@
     "Modified: / 30.1.2000 / 02:33:00 / cg"
 !
 
+pasteOrReplaceByKeyPress
+    "paste a previous item from the copybuffer history.
+     (i.e. repaste some previously deleted or copied text)"
+
+    |text|
+
+    self checkModificationsAllowed ifFalse:[
+        self flashReadOnly.
+        ^ self
+    ].
+    text := self getClipboardText:#clipboard.
+    text notNil ifTrue:[
+        self pasteOrReplace:text
+    ]
+!
+
 pasteOrReplaceFromHistory
     "paste a previous item from the copybuffer history.
      (i.e. repaste some previously deleted or copied text)"