--- a/TestCase.st	Wed Apr 03 15:53:36 2013 +0200
+++ b/TestCase.st	Wed Apr 03 15:56:36 2013 +0200
@@ -664,12 +664,19 @@
             ] ifFalse:[
                 result := TestResult stateFail.
             ].
-            "/ debug
-            Debugger 
-                enter:ex raiseContext
-                withMessage:(ex description)
-                mayProceed:true.
-            ex proceed. 
+            "I want a debugger to open here..."
+            "the only really portable dialect query..."
+            ((Smalltalk respondsTo:#isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[
+                "/ debug
+                Debugger 
+                    enter:ex raiseContext
+                    withMessage:(ex description)
+                    mayProceed:true.
+                ex proceed. 
+            ] ifFalse:[
+                "is there a portable way to open a debugger?"
+                self halt:(ex description)
+            ]
         ].
 
         "/ if proceeded in the debugger, we arrive here;
@@ -897,11 +904,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.94 2013-04-03 13:53:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.95 2013-04-03 13:56:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.94 2013-04-03 13:53:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.95 2013-04-03 13:56:36 cg Exp $'
 !
 
 version_SVN