--- a/packages/Package.st	Fri Apr 11 14:56:09 2003 +0200
+++ b/packages/Package.st	Fri Apr 11 14:58:48 2003 +0200
@@ -3,12 +3,12 @@
 "{ NameSpace: Packages }"
 
 AbstractPackage subclass:#Package
-	instanceVariableNames:'packageHandler packagedClasses packagedMethods packageComment
-		prerequisites scripts isDirty isInstalled packageVersion
-		overriddenChanges blockedMethods'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Package'
+        instanceVariableNames:'packageHandler packagedClasses packagedMethods packageComment
+                prerequisites scripts isDirty isInstalled packageVersion
+                overriddenChanges blockedMethods'
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Package'
 !
 
 Package class instanceVariableNames:'CurrentPackage'
@@ -19,26 +19,26 @@
 !
 
 Object subclass:#PackagedClass
-	instanceVariableNames:'name package instanceDefinition classDefinition
-		instanceVariableNames classVariableNames
-		classInstanceVariableNames poolDictionaries category'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:Package
+        instanceVariableNames:'name package instanceDefinition classDefinition
+                instanceVariableNames classVariableNames
+                classInstanceVariableNames poolDictionaries category'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:Package
 !
 
 Object subclass:#PackagedMethod
-	instanceVariableNames:'name package source ownedClassName'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:Package
+        instanceVariableNames:'name package source ownedClassName'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:Package
 !
 
 Object subclass:#PackagedScript
-	instanceVariableNames:'string receiver'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:Package
+        instanceVariableNames:'string receiver'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:Package
 !
 
 !Package class methodsFor:'documentation'!
@@ -548,7 +548,7 @@
      NOTE: Does not mark the receiver as dirty. 
      That is the responsibility of the called of this method!!"
     aPackageClass isClass ifTrue:[
-        self halt.
+        self error:'I am expected a PackagedClass not a Class'.
     ].
     self packagedClasses at:aPackageClass name put:(aPackageClass).
     ^ aPackageClass
@@ -639,7 +639,7 @@
         ].
 
     (self overriddenChangesIncludesMethodName:aMethodName forClass:aClassName) ifTrue:[
-        self halt:'I need to remove the overriden change here as once the method
+        self error:'I need to remove the overriden change here as once the method
                     is removed from me i dont want to know about it any more!!'.
     ].
 
@@ -686,7 +686,7 @@
     "get the source of a class in the context of the receiver"
     | currentSourceStream |
     currentSourceStream := aClass currentSourceStream.
-    self halt.
+    self error:'not used at the mo'.
 !
 
 looseMethodNames
@@ -1174,7 +1174,7 @@
 !
 
 packageNotification:arg 
-    self halt:'please define packageNotification: here'.
+    self breakPoint:''
 !
 
 raisePackageError:aString 
@@ -1861,7 +1861,6 @@
 
 isTheSameAsInImage
     | myClass method|
-    self halt.
     (myClass := (Smalltalk at:ownedClassName)) ifNotNil:[
         (method :=(myClass methodDictionary at:name ifAbsent:[nil])) ifNotNil:[
             ^ method source = source. "there is a more efficient way but i have forgotten"
@@ -1924,5 +1923,5 @@
 !Package class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/packages/Package.st,v 1.2 2003-04-10 06:45:44 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/packages/Package.st,v 1.3 2003-04-11 12:58:16 james Exp $'
 ! !