--- a/MultiViewToolApplication.st	Sat May 05 22:28:49 2012 +0100
+++ b/MultiViewToolApplication.st	Sat May 05 23:06:53 2012 +0100
@@ -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,9 +1357,9 @@
 !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 §'
 !
 
 version_SVN
-    ^ '$Id: MultiViewToolApplication.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: MultiViewToolApplication.st 7990 2012-05-05 22:06:53Z vranyj1 $'
 ! !