--- a/WindowGroup.st	Mon Feb 05 22:51:10 1996 +0100
+++ b/WindowGroup.st	Tue Feb 06 00:32:10 1996 +0100
@@ -425,7 +425,7 @@
     "destroy all views associated to this window group"
 
     topViews notNil ifTrue:[
-	topViews do:[:aTopView | aTopView destroy]
+	topViews do:[:aTopView | aTopView notNil ifTrue:[aTopView destroy]]
     ].
     views := nil.
     topViews := nil.
@@ -1162,6 +1162,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.60 1996-02-01 19:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.61 1996-02-05 23:32:10 cg Exp $'
 ! !
 WindowGroup initialize!