--- a/Smalltalk.st	Fri Sep 17 19:28:11 1999 +0200
+++ b/Smalltalk.st	Fri Sep 17 19:47:13 1999 +0200
@@ -4319,6 +4319,8 @@
 
     |prj fn|
 
+^ false.
+
     prj := Project new loadFromProjectFile:f asFilename pathName.
 "/ no - also allow for applications to be loaded this way
 "/    prj type == #library ifFalse:[ ^ false].
@@ -4427,7 +4429,7 @@
     ].
 
     "/ .prj ?
-    f := (packageDir construct:packageBaseName) withSuffix:'.prj'.
+    f := (packageDir construct:packageBaseName) withSuffix:'prj'.
     f exists ifTrue:[
         (self loadPackage:aPackageId fromProjectFile:f asAutoloaded:doLoadAsAutoloaded) ifTrue:[
             Transcript showCR:'loaded package: ' , aPackageId , ' from project file: ' , f pathName.
@@ -4436,7 +4438,7 @@
     ].
 
     "/ .zip ?
-    f := (packageDir construct:packageBaseName) withSuffix:'.zip'.
+    f := (packageDir construct:packageBaseName) withSuffix:'zip'.
     f exists ifTrue:[
         (self loadPackage:aPackageId fromZIPArchive:f asAutoloaded:doLoadAsAutoloaded) ifTrue:[
             Transcript showCR:'loaded package: ' , aPackageId , ' from zip file: ' , f pathName.
@@ -4819,5 +4821,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.359 1999-09-17 17:28:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.360 1999-09-17 17:47:13 cg Exp $'
 ! !