--- a/packages/PackageSmalltalkManipulationTestCases.st	Wed May 28 13:03:57 2003 +0200
+++ b/packages/PackageSmalltalkManipulationTestCases.st	Wed May 28 13:04:54 2003 +0200
@@ -133,10 +133,9 @@
 testClassCreation2
     "tests that new classes are automatically included in workingPackage"
      | packagedClass packageTestCases |
-    Error handle:[:ex |
-        self halt.
-    ] do:[
     [
+        self shouldnt:(packageManager workingPackage includesPackagedClassNamed:#QWERTZ2).
+
         packageTestCases := packageManager newPackageNamed:#'packageTestCases'.
         packageManager workingPackage:packageTestCases.
         self createClassNamed:#QWERTZ2.
@@ -156,11 +155,9 @@
         ].
 
         packageManager workingPackage:defaultPackage.
-
         self shouldnt:(packageManager workingPackage includesPackagedClassNamed:#QWERTZ2).
     ]
 
-    ]
 !
 
 testClassRedefine
@@ -466,7 +463,6 @@
         self assert:(package1 isDependentOnMethodNamed:#testBasicMethodCreation forClassNamed:#QWERTZ2).
 
        " The test!!!!!! "
-        method1 sourceCode halt.
         self createMethodFor:QWERTZ2 source:'testBasicMethodCreation 1 + 1'.
 
         method1 := QWERTZ2 compiledMethodAt:#testBasicMethodCreation.
@@ -1194,5 +1190,5 @@
 !PackageSmalltalkManipulationTestCases class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/packages/PackageSmalltalkManipulationTestCases.st,v 1.4 2003-05-13 09:43:44 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/packages/PackageSmalltalkManipulationTestCases.st,v 1.5 2003-05-28 11:04:54 james Exp $'
 ! !