--- a/ProjectView.st	Tue Apr 11 18:31:23 1995 +0200
+++ b/ProjectView.st	Wed May 03 03:13:28 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.12 1995-03-26 17:35:57 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.13 1995-05-03 01:13:01 claus Exp $
 "
 ! !
 
@@ -181,7 +181,8 @@
 hideProject
     myProject hideViews.
     ActiveProjectView := nil.
-    toggle turnOff
+    toggle turnOff.
+    Project setDefaultProject.
 !
 
 renameProject
@@ -227,7 +228,6 @@
 
 doDestroy
     self hideProject.
-
     myProject := nil.
     super destroy
 !