--- a/TestCase.st	Fri Oct 31 13:49:27 2008 +0100
+++ b/TestCase.st	Fri Oct 31 14:12:47 2008 +0100
@@ -609,18 +609,44 @@
             each reset
         ]
     ] fork.
-    (self class selector:testSelector) runCaseAsFailure:semaphore.
+
+    "/ used to be: 
+    "/  (self class selector:testSelector) runCaseAsFailure:semaphore
+    "/ which is bad for subclasses which need more arguments.
+    "/ why not use:
+    "/  self copy perform:aSymbol
+    "/ or even
+    "/  self perform:aSymbol
+    "/ (self class selector:testSelector) runCaseAsFailure:semaphore.
+    self runCaseAsFailure:semaphore
 !
 
 debugUsing:aSymbol 
     self signalUnavailableResources.
     [
-        (self class selector:testSelector) perform:aSymbol
+        "/ used to be: 
+        "/  (self class selector:testSelector) perform:aSymbol
+        "/ which is bad for subclasses which need more arguments.
+        "/ why not use:
+        "/  self copy perform:aSymbol
+        "/ or even
+        "/  self perform:aSymbol
+        "/ (self class selector:testSelector) perform:aSymbol
+        self perform:aSymbol
     ] ensure:[
         self resources do:[:each | 
             each reset
         ]
     ]
+
+
+
+
+
+
+
+
+
 !
 
 failureLog      
@@ -722,7 +748,7 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.47 2008-05-27 21:02:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.48 2008-10-31 13:12:47 cg Exp $'
 ! !
 
 TestCase initialize!