--- a/MultiViewToolApplication.st	Wed Feb 21 16:01:30 2007 +0100
+++ b/MultiViewToolApplication.st	Wed Feb 21 16:03:02 2007 +0100
@@ -967,23 +967,22 @@
     |view|
 
     view := aView.
+
     (view isScrollWrapper) ifTrue:[
         view := view scrolledView.
         view isNil ifTrue:[^ nil].
     ].
+
     (view isTextView) ifFalse:[
-        (view isKindOf:InspectorView) ifFalse:[
-            ^ nil
-        ].
-        view := view workspace.
-        (view isScrollWrapper) ifTrue:[
-            view := view scrolledView
+        (view isKindOf:InspectorView) ifTrue:[
+            view := view workspace.
+            (view isScrollWrapper) ifTrue:[
+                view := view scrolledView
+            ].
         ].
     ].
-    (view isTextView) ifFalse:[
-        ^ nil
-    ].
-    ^ view
+    (view isTextView) ifTrue:[^ view].
+    ^ view allSubViewsDetect:[:v| v name = #Workspace] ifNone:nil.
 ! !
 
 !MultiViewToolApplication methodsFor:'user actions'!
@@ -1044,5 +1043,5 @@
 !MultiViewToolApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.14 2007-02-19 17:14:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MultiViewToolApplication.st,v 1.15 2007-02-21 15:03:02 cg Exp $'
 ! !