--- a/EditTextView.st	Fri Feb 22 13:36:35 2013 +0100
+++ b/EditTextView.st	Sat Feb 23 10:58:45 2013 +0100
@@ -4610,7 +4610,7 @@
 doKeyPress:key x:x y:y
     "handle keyboard input"
 
-    <resource: #keyboard (#Paste #Insert #Cut #Again #AgainForAll
+    <resource: #keyboard (#Paste #Insert #PasteFromHistory #Cut #Again #AgainForAll
                           #Replace #Undo #Redo #Accept
                           #Delete #BasicDelete #BackSpace #BasicBackspace
                           #SelectWord #DeleteSpaces #Join
@@ -4748,7 +4748,7 @@
 
     (key == #Accept)  ifTrue:[^ self accept].
 
-    ((key == #Paste) or:[key == #Insert]) ifTrue:[self pasteOrReplace. ^self].
+    ((key == #Paste) or:[key == #Insert or:[key == #PasteFromHistory]]) ifTrue:[self pasteOrReplace. ^self].
     (key == #Cut) ifTrue:[self cut. ^self].
     (key == #Again) ifTrue:[self again. ^self].
     (key == #AgainForAll) ifTrue:[self multipleAgain. ^self].
@@ -8038,10 +8038,10 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.541 2013-01-17 15:31:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.542 2013-02-23 09:58:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.541 2013-01-17 15:31:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.542 2013-02-23 09:58:45 cg Exp $'
 ! !