--- a/TestCase.st	Tue Dec 10 10:53:11 2002 +0100
+++ b/TestCase.st	Tue Dec 10 11:06:06 2002 +0100
@@ -137,14 +137,15 @@
 
 buildSuite
 
-	| suite |
-	^self isAbstract 
-		ifTrue: 
-			[suite := TestSuite new.
-			suite name: self name asString.
-			self allSubclasses do: [:each | each isAbstract ifFalse: [suite addTest: each buildSuiteFromSelectors]].
-			suite]
-		ifFalse: [self buildSuiteFromSelectors]
+        | suite |
+        ^self isAbstract 
+                ifTrue: 
+                        [suite := TestSuite new.
+self halt.
+                        suite name: self name asString.
+                        self allSubclasses do: [:each | each isAbstract ifFalse: [suite addTest: each buildSuiteFromSelectors]].
+                        suite]
+                ifFalse: [self buildSuiteFromSelectors]
 !
 
 buildSuiteFromAllSelectors
@@ -421,7 +422,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.32 2002-11-19 11:27:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.33 2002-12-10 10:06:06 cg Exp $'
 ! !
 
 TestCase initialize!