--- a/MCPackage.st	Mon Oct 26 20:38:52 2009 +0100
+++ b/MCPackage.st	Mon Oct 26 20:39:02 2009 +0100
@@ -59,7 +59,6 @@
         definitions := OrderedCollection new.
 
         Smalltalk isSmalltalkX ifTrue:[
-self halt.
             packageInfo 
                 extensionMethods do: [:each | 
                     definitions add:(
@@ -71,7 +70,7 @@
                             timeStamp: nil
                             source: (each source))
                 ].
-self halt.
+
             packageInfo classes do: [:ea | 
                 definitions addAll: ea classDefinitions
             ].
@@ -80,7 +79,7 @@
             packageInfo hasPreUnloadAction ifTrue: [definitions add: (MCRemovalPreambleDefinition from: packageInfo)].
             "/ in ST/X, there is no live after death
             "/ packageInfo hasPostUnloadAction ifTrue: [definitions add: (MCRemovalPostscriptDefinition from: packageInfo)]. 
-self halt.
+
         ] ifFalse:[
             categories := packageInfo systemCategories.
             categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ].
@@ -117,9 +116,9 @@
 !MCPackage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.3 2009-10-26 17:54:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.4 2009-10-26 19:39:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.3 2009-10-26 17:54:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.4 2009-10-26 19:39:02 cg Exp $'
 ! !