--- a/Class.st	Fri Sep 17 12:57:58 1999 +0200
+++ b/Class.st	Fri Sep 17 12:59:00 1999 +0200
@@ -665,7 +665,7 @@
     packageId := self package.
     packageId notNil ifTrue:[
         prj := Project projectWithId:packageId.
-        prj notNil ifTrue:[self halt. ^ prj].
+        prj notNil ifTrue:[^ prj].
 
         "/
         "/ intermediate kludge (will be removed)
@@ -681,7 +681,6 @@
 
         handle notNil ifTrue:[
             prj := Project new.
-self halt.
             prj name:packageId.
             prj directory:(handle pathName asFilename directory pathName).
             prj package:packageId.
@@ -3982,5 +3981,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.353 1999-09-17 10:57:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.354 1999-09-17 10:59:00 cg Exp $'
 ! !