--- a/TestResult.st	Thu Jul 11 22:37:58 2002 +0200
+++ b/TestResult.st	Tue Aug 06 10:48:49 2002 +0200
@@ -17,8 +17,11 @@
 !
 
 exError
-	"Change for Dialect"
-	^Error
+        "Change for Dialect"
+        Smalltalk dialectName = 'SmalltalkX' ifTrue:[
+            ^ Exception
+        ].
+        ^Error
 
     "Modified: / 21.6.2000 / 10:10:45 / Sames"
 !
@@ -196,5 +199,5 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.10 2002-06-19 12:20:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.11 2002-08-06 08:48:49 cg Exp $'
 ! !