--- a/MultiViewToolApplication.st	Sat Apr 21 20:37:45 2012 +0200
+++ b/MultiViewToolApplication.st	Sat Apr 21 20:38:24 2012 +0200
@@ -1177,7 +1177,16 @@
     |v|
 
     v := (workspaceHolder value) ? (self selectedWorkspacesTextView).
-    v perform:#paste: with:aString ifNotUnderstood:[].
+    [
+        v perform:#paste: with:aString.
+    ] on:MessageNotUnderstood do:[:ex|
+        "special code, to catch exeception sent from a scrolled view,
+         which has a different receiver tha v"
+        (ex selector ~~ #paste:) ifTrue:[
+            ex reject.
+        ].
+        "else ignore it"
+    ].
 
     "Modified: / 16-11-2010 / 15:27:39 / cg"
 !
@@ -1348,5 +1357,5 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.42 2011-07-07 14:12:48 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.43 2012-04-21 18:38:24 stefan Exp $'
 ! !