--- a/MultiViewToolApplication.st	Tue Nov 16 14:59:31 2010 +0100
+++ b/MultiViewToolApplication.st	Tue Nov 16 15:13:10 2010 +0100
@@ -1165,9 +1165,13 @@
 !
 
 paste:aString
-    ((workspaceHolder value) ? (self selectedWorkspacesTextView)) paste:aString.
+    |v|
 
-    "Modified: / 16-11-2010 / 14:59:25 / cg"
+    v := (workspaceHolder value) ? (self selectedWorkspacesTextView).
+    v isScrollable ifTrue:[v := v scrolledView].
+    v perform:#paste: with:aString ifNotUnderstood:[].
+
+    "Modified: / 16-11-2010 / 15:12:51 / cg"
 !
 
 redo
@@ -1336,9 +1340,9 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.36 2010-11-16 13:59:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.37 2010-11-16 14:13:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.36 2010-11-16 13:59:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.37 2010-11-16 14:13:10 cg Exp $'
 ! !