diff --git a/comp/src/gb.form.editor/.src/TextEditor.class b/comp/src/gb.form.editor/.src/TextEditor.class
index 560212857..894e2ae29 100644
--- a/comp/src/gb.form.editor/.src/TextEditor.class
+++ b/comp/src/gb.form.editor/.src/TextEditor.class
@@ -2539,7 +2539,7 @@ Public Sub View_MouseUp()
     $hTimerScroll = Null
   Endif
   
-  If Mouse.Middle And If Not $bReadOnly Then
+  If Mouse.Middle And If Not $bReadOnly And If Application.MiddleClickPaste Then
     Clipboard.Current = Clipboard.Selection
     Paste
     Clipboard.Current = Clipboard.Default