--- a/ApplicationModel.st	Wed Jan 07 14:27:03 2004 +0100
+++ b/ApplicationModel.st	Thu Jan 08 12:17:41 2004 +0100
@@ -1693,7 +1693,7 @@
 
     w := self window.
     w notNil ifTrue:[
-        ^ w topView withCursor:aCursor do:aBlock
+        ^ w withCursor:aCursor do:aBlock
     ].
     aCursor showWhile:[ret := aBlock value].
     ^ ret.
@@ -2732,7 +2732,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.194 2003-12-18 10:51:52 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.195 2004-01-08 11:17:41 cg Exp $'
 ! !
 
 ApplicationModel initialize!