--- a/ApplicationModel.st	Sat Jul 06 19:06:24 2013 +0200
+++ b/ApplicationModel.st	Sat Jul 06 19:22:27 2013 +0200
@@ -3244,6 +3244,9 @@
 !ApplicationModel methodsFor:'queries'!
 
 defaultWindowExtent
+    DefaultExtents notNil ifTrue:[
+        ^ DefaultExtents at:self class name ifAbsent:nil
+    ].
     ^ nil
 
     "Created: / 11-07-2011 / 22:30:12 / cg"
@@ -3400,6 +3403,15 @@
 
     window := self window.
 
+    self shouldRememberLastExtent ifTrue:[
+        (window notNil and:[window isTopView]) ifTrue:[
+            DefaultExtents isNil ifTrue:[
+                DefaultExtents := Dictionary new.
+            ].
+            DefaultExtents at:self class name put:(window extent).
+        ].
+    ].
+
     (wg := self windowGroup) notNil ifTrue:[
         wgProcess := wg process.
         (Processor activeProcess ~~ wgProcess
@@ -3413,14 +3425,6 @@
             window destroy.
         ]
     ].
-    self shouldRememberLastExtent ifTrue:[
-        (window notNil and:[window isTopView]) ifTrue:[
-            DefaultExtents isNil ifTrue:[
-                DefaultExtents := Dictionary new.
-            ].
-            DefaultExtents at:self class name put:(window extent).
-        ].
-    ].
 
     "Modified: / 28-02-2011 / 17:57:12 / cg"
 !
@@ -4002,11 +4006,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.339 2013-07-06 17:06:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.340 2013-07-06 17:22:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.339 2013-07-06 17:06:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.340 2013-07-06 17:22:27 cg Exp $'
 ! !