--- a/s/BenchmarkRunnerExecutor.st	Wed Dec 17 01:17:34 2014 +0000
+++ b/s/BenchmarkRunnerExecutor.st	Mon Apr 20 12:53:16 2015 +0100
@@ -67,20 +67,25 @@
     transcript nextPutAll: '...'.
 
     [
-        outcome := super execute: aBenchmarkInstance result: aBenchmarkResult parameters: aCollection.
-        transcript nextPutAll: 'OK ['.
-        transcript nextPutAll: outcome time printString.
-        transcript nextPutAll: ']'.
-        aCollection notEmpty ifTrue:[        
-            transcript nextPutAll: ' {'.
-            (aCollection asSortedCollection:[:a :b | a key name < b key name ]) do:[:paramAndValue|
-                transcript nextPutAll: paramAndValue key name.
-                transcript nextPutAll: '='.        
-                transcript nextPutAll: paramAndValue value storeString.
-            ] separatedBy:[
-                transcript nextPutAll: ', '.            
+        outcome := super execute: aBenchmarkInstance result: aBenchmarkResult 
+        parameters: aCollection.
+	    outcome notNil ifTrue:[
+            transcript nextPutAll: 'OK ['.
+            transcript nextPutAll: outcome time printString.
+            transcript nextPutAll: ']'.
+            aCollection notEmpty ifTrue:[        
+                transcript nextPutAll: ' {'.
+                (aCollection asSortedCollection:[:a :b | a key name < b key name ]) do:[:paramAndValue|
+                    transcript nextPutAll: paramAndValue key name.
+                    transcript nextPutAll: '='.        
+                    transcript nextPutAll: paramAndValue value storeString.
+                ] separatedBy:[
+                    transcript nextPutAll: ', '.            
+                ].
+                transcript nextPutAll: '}'.
             ].
-            transcript nextPutAll: '}'.
+        ] ifFalse:[
+            transcript nextPutAll: 'SKIPPED'.
         ].
         transcript nextPutAll: '
 '.