--- a/FileApplicationNoteBook.st	Tue Oct 01 10:07:49 2002 +0200
+++ b/FileApplicationNoteBook.st	Tue Oct 01 10:08:26 2002 +0200
@@ -294,7 +294,7 @@
 
 closeSubCanvas:aApplication
 
-    | applIndex historyList localHistoryList|
+    | applIndex historyList localHistoryList selectedPage|
 
     applIndex := self getIndexFor:aApplication.
     applIndex notNil ifTrue:[
@@ -305,10 +305,12 @@
         historyList remove:applIndex ifAbsent:nil.
         localHistoryList := OrderedCollection new.
         historyList notEmpty ifTrue:[
-            self selectedEditorPage value:(historyList last).
+            selectedPage := historyList last.
         ] ifFalse:[
-            self selectedEditorPage value:1.
-        ].
+            selectedPage := 1.
+        ].  
+        self selectedEditorPage value:selectedPage.
+
         historyList do:[ : index |
             index <= applIndex ifTrue:[
                 localHistoryList add:index
@@ -4460,5 +4462,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.3 2002-09-30 16:39:28 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.4 2002-10-01 08:08:26 cg Exp $'
 ! !