--- a/Project.st	Wed Sep 22 10:40:45 1999 +0200
+++ b/Project.st	Wed Sep 22 11:11:03 1999 +0200
@@ -107,7 +107,7 @@
     AllProjects isNil ifTrue:[
         AllProjects := OrderedCollection new.
     ] ifFalse:[
-        AllProjects do:[:p | packages add:p package asSymbol].
+        AllProjects do:[:p | packages at:p package asSymbol put:p].
     ].
     Smalltalk allClassesDo:[:aClass |
         |packageID prj classFilename pkgInfo revInfo 
@@ -2602,6 +2602,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.101 1999-09-22 08:40:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.102 1999-09-22 09:11:03 cg Exp $'
 ! !
 Project initialize!