--- a/TestCase.st	Thu May 17 10:15:18 2018 +0200
+++ b/TestCase.st	Fri May 18 13:18:35 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/sunit' }"
 
 "{ NameSpace: Smalltalk }"
@@ -1017,7 +1019,13 @@
         didSetup := true.
         self performTest.
     ] ensure: [
-        didSetup ifTrue:[ self safeTearDown ]
+        didSetup 
+            ifTrue:[ self safeTearDown ]
+            ifFalse:[ 
+                "/ can we tearDown here????
+                Transcript showCR:'error in setup - no teardown' 
+                "/ self error:'error in setup' 
+            ].
     ]
 
     "Modified: / 13-07-2017 / 14:03:01 / cg"
@@ -1043,7 +1051,13 @@
             didSetup := true.
             self openDebuggerOnFailingTestMethod
         ] ensure: [
-            didSetup ifTrue:[ self tearDown ]
+            didSetup 
+                ifTrue:[ self tearDown ]
+                ifFalse:[ 
+                    "/ can we tearDown here????
+                    Transcript showCR:'error in setup - no teardown' 
+                    "/ self error:'error in setup' 
+                ].
         ]
     ] ensure: [aSemaphore signal].