--- a/ProjectV.st	Thu Jan 07 15:33:16 1999 +0100
+++ b/ProjectV.st	Mon Jan 18 15:18:11 1999 +0100
@@ -307,16 +307,19 @@
      However, methods and classes are not restored to their
      previous state."
 
-    (myProject views notNil
-    and:[myProject views notEmpty]) ifTrue:[
-	|box|
+    |views|
+
+    myProject notNil ifTrue:[
+        views := myProject views.
+        (views size > 0) ifTrue:[
+            |box|
 
-	box := YesNoBox new.
-	box title:(resources string:'PROJECT_DESTROY') withCRs.
-	box okText:(resources string:'yes').
-	(box confirm) ifFalse:[^ self]
+            box := YesNoBox new.
+            box title:(resources string:'PROJECT_DESTROY') withCRs.
+            box okText:(resources string:'yes').
+            (box confirm) ifFalse:[^ self]
+        ].
     ].
-
     self doDestroy
 
     "Modified: 14.2.1997 / 13:39:03 / cg"
@@ -373,7 +376,9 @@
     "hide all views belonging to that project and switch
      to the default project"
 
-    myProject hideViews.
+    myProject notNil ifTrue:[
+        myProject hideViews.
+    ].
     ActiveProjectView := nil.
     toggle turnOff.
     Project setDefaultProject.
@@ -752,5 +757,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.42 1998-02-26 01:55:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.43 1999-01-18 14:18:11 cg Exp $'
 ! !

--- a/ProjectView.st	Thu Jan 07 15:33:16 1999 +0100
+++ b/ProjectView.st	Mon Jan 18 15:18:11 1999 +0100
@@ -307,16 +307,19 @@
      However, methods and classes are not restored to their
      previous state."
 
-    (myProject views notNil
-    and:[myProject views notEmpty]) ifTrue:[
-	|box|
+    |views|
+
+    myProject notNil ifTrue:[
+        views := myProject views.
+        (views size > 0) ifTrue:[
+            |box|
 
-	box := YesNoBox new.
-	box title:(resources string:'PROJECT_DESTROY') withCRs.
-	box okText:(resources string:'yes').
-	(box confirm) ifFalse:[^ self]
+            box := YesNoBox new.
+            box title:(resources string:'PROJECT_DESTROY') withCRs.
+            box okText:(resources string:'yes').
+            (box confirm) ifFalse:[^ self]
+        ].
     ].
-
     self doDestroy
 
     "Modified: 14.2.1997 / 13:39:03 / cg"
@@ -373,7 +376,9 @@
     "hide all views belonging to that project and switch
      to the default project"
 
-    myProject hideViews.
+    myProject notNil ifTrue:[
+        myProject hideViews.
+    ].
     ActiveProjectView := nil.
     toggle turnOff.
     Project setDefaultProject.
@@ -752,5 +757,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.42 1998-02-26 01:55:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.43 1999-01-18 14:18:11 cg Exp $'
 ! !