--- a/Project.st	Thu Mar 25 17:02:17 1999 +0100
+++ b/Project.st	Thu Mar 25 17:29:38 1999 +0100
@@ -669,10 +669,15 @@
     (pack at:'classes' default:#()) do:[:info |
         |condKey className optionalFileName|
 
-        condKey := info at:1.
-        className := info at:2.
-        info size > 2 ifTrue:[
-            optionalFileName := info at:3.
+        info isSymbol ifTrue:[
+            className := info.
+            condKey := #always.
+        ] ifFalse:[
+            condKey := info at:1.
+            className := info at:2.
+            info size > 2 ifTrue:[
+                optionalFileName := info at:3.
+            ].
         ].
         self 
             addClass:className 
@@ -1221,23 +1226,31 @@
 classInfo
     "return a classInfo collection of classes belonging to that project"
 
-    |classes classInfo|
+    |classInfo classes|
 
     properties notNil ifTrue:[
         classInfo := properties at:#classInfo ifAbsent:nil.
         classInfo notNil ifTrue:[^ classInfo].
     ].
 
-    ^ (self classes ? #()) collect:[:class |
-        |i fn|
+    classes := self classes.
+    classes size == 0 ifTrue:[
+        classInfo := OrderedCollection new
+    ] ifFalse:[
+        classInfo := classes asOrderedCollection
+                        collect:[:class |
+                            |i fn|
 
-        i := ClassInfo new.
-        i conditionForInclusion:#always.
-        i className:class name.
-        fn := class classFilename ? ((Smalltalk fileNameForClass:class) , '.st').
-        i classFileName:fn.
-        i
-    ]
+                            i := ClassInfo new.
+                            i conditionForInclusion:#always.
+                            i className:class name.
+                            fn := class classFilename ? ((Smalltalk fileNameForClass:class) , '.st').
+                            i classFileName:fn.
+                            i
+                        ]
+    ].
+    self propertyAt:#classInfo put:classInfo.
+    ^ classInfo
 
     "Modified: 4.1.1997 / 16:51:18 / cg"
 !
@@ -1444,6 +1457,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.69 1999-03-24 23:02:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.70 1999-03-25 16:29:38 cg Exp $'
 ! !
 Project initialize!