--- a/EditTextView.st	Thu Feb 09 00:04:36 2017 +0000
+++ b/EditTextView.st	Sun Mar 12 21:55:11 2017 +0000
@@ -7384,15 +7384,11 @@
 !
 
 paste
-    "paste the copybuffer; if there is a selection, unselect first.
-     Then paste at cursor position."
-
-    self checkModificationsAllowed ifTrue:[
-        self withSelfAndTextForPasteDo:[:me :text |
-            me unselect.
-            me undoablePaste:text
-        ]
-    ]
+    "Paste copybuffer (clipboard)"
+
+    self pasteOrReplace
+
+    "Modified: / 12-03-2017 / 21:46:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 paste:someText