--- a/ProjectView.st	Tue Jan 11 18:06:39 2000 +0100
+++ b/ProjectView.st	Tue Jan 11 20:03:42 2000 +0100
@@ -495,7 +495,7 @@
 
         box := ListSelectionBox title:(resources string:'PROJECT_PACKAGENAME') withCRs.
         box list:(existingPackages asOrderedCollection sort).
-        (p := myProject packageName) notNil ifTrue:[
+        (p := myProject package) notNil ifTrue:[
             box initialText:p
         ].
         box action:[:packageName |
@@ -768,5 +768,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.47 1999-07-26 14:03:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.48 2000-01-11 19:03:42 cg Exp $'
 ! !