--- a/ApplicationModel.st	Sun Aug 03 14:36:49 2014 +0200
+++ b/ApplicationModel.st	Mon Aug 04 15:42:56 2014 +0200
@@ -677,6 +677,16 @@
 
 !ApplicationModel class methodsFor:'history'!
 
+forgetDefaultExtentFor:anApplicationClass
+    "forget the remembered last extent for some application class.
+     This is sent by the UIPainter, when a windowspec is saved,
+     to bring up the application with its possibly changed default extent"
+
+    DefaultExtents notNil ifTrue:[
+        DefaultExtents removeKey:anApplicationClass name ifAbsent:[]
+    ]
+!
+
 forgetRecentlyOpenedApplications
     RecentlyOpenedApplications := nil
 !
@@ -4124,11 +4134,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.358 2014-08-03 12:36:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.359 2014-08-04 13:42:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.358 2014-08-03 12:36:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.359 2014-08-04 13:42:56 cg Exp $'
 ! !