--- a/EditFieldWithCompletion.st	Mon Oct 24 15:22:57 2016 +0200
+++ b/EditFieldWithCompletion.st	Wed Oct 26 10:24:07 2016 +0200
@@ -232,7 +232,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.
     ].