--- a/StandardSystemView.st	Wed Nov 22 15:19:33 2000 +0100
+++ b/StandardSystemView.st	Wed Nov 22 15:53:27 2000 +0100
@@ -836,10 +836,7 @@
 
     self removeFromCurrentProject.
     windowGroup notNil ifTrue:[
-	windowGroup focusSequence:nil.
-    ].
-    application notNil ifTrue:[
-	application windowEvent:(#close -> self) from:self
+        windowGroup focusSequence:nil.
     ].
     super destroy.
 !
@@ -1462,6 +1459,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.135 2000-11-08 09:15:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.136 2000-11-22 14:53:04 tm Exp $'
 ! !
 StandardSystemView initialize!