--- a/EditFieldWithCompletion.st	Thu Nov 24 22:03:16 2016 +0000
+++ b/EditFieldWithCompletion.st	Thu Nov 24 22:14:31 2016 +0000
@@ -230,7 +230,7 @@
 
     <resource: #keyboard (#CursorDown #CursorUp #Accept #Return #Escape #BackSpace #Delete)>
 
-    key isCharacter ifTrue:[
+    (key isCharacter or:[#(Paste Copy Cut) includesIdentical:key]) ifTrue:[
         super keyPress:key x:x y:y.
         ^ self.
     ].