--- a/FileApplicationNoteBook.st	Tue Oct 08 10:42:58 2002 +0200
+++ b/FileApplicationNoteBook.st	Tue Oct 08 10:56:20 2002 +0200
@@ -730,8 +730,10 @@
     fileName := anAppl fileName.
     fileName notNil ifTrue:[
         self changeFileBrowserTitleTo:fileName baseName.
+        self gotoFile:fileName.
     ].
     index := self getIndexFor:anAppl.
+    
 
     index notNil ifTrue:[
         canvasHolder value:(anAppl window).
@@ -4485,5 +4487,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.8 2002-10-08 08:42:39 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.9 2002-10-08 08:56:20 penk Exp $'
 ! !