--- a/reports/Builder__ReportRunner.st	Sat Jun 29 23:34:55 2013 +0200
+++ b/reports/Builder__ReportRunner.st	Sun Jun 30 00:44:40 2013 +0200
@@ -279,9 +279,13 @@
 
 !ReportRunner class methodsFor:'startup-to be redefined'!
 
-main:argv
+main:argv0
     "Process command line arguments"
 
+    | argv |
+
+    argv := argv0 asOrderedCollection.
+    argv remove: '--abortOnSEGV' ifAbsent:[nil].
     parser := CmdLineParser new.
     CmdLineOptionError autoload.
 

--- a/reports/Builder__TestReport.st	Sat Jun 29 23:34:55 2013 +0200
+++ b/reports/Builder__TestReport.st	Sun Jun 30 00:44:40 2013 +0200
@@ -313,7 +313,7 @@
 runCase:aTestCase debugged: debugged fork:doFork timeout: tout
     | nm sel |
 
-    aTestCase shouldSkip ifTrue:[
+    (aTestCase perform: #shouldSkip ifNotUnderstood:[false]) ifTrue:[
         self addSkipped: aTestCase.
         ^self.
     ].

--- a/reports/report-runner.sh	Sat Jun 29 23:34:55 2013 +0200
+++ b/reports/report-runner.sh	Sun Jun 30 00:44:40 2013 +0200
@@ -1,3 +1,3 @@
 #!/bin/sh
 DIR=`dirname $0`
-exec "$DIR/../../../projects/smalltalk/stx" -Mold:64000 -I --abortOnSEGV -f "$DIR/report-runner.st" "$@"
+exec "$DIR/../../../projects/smalltalk/stx" -Mold:64000 -I --abortOnSEGV --execute "$DIR/report-runner.st" "$@"

--- a/reports/report-runner.st	Sat Jun 29 23:34:55 2013 +0200
+++ b/reports/report-runner.st	Sun Jun 30 00:44:40 2013 +0200
@@ -28,10 +28,14 @@
 ].
 
 (Smalltalk at:#'Builder::ReportRunner') isNil ifTrue:[
+    (Smalltalk loadPackage: 'stx:goodies/sunit') ifFalse:[
+        Stderr nextPutAll:'ERROR: cannot load stx:goodies/sunit.'.
+        Smalltalk exit: 17
+    ].
     (Smalltalk loadPackage: 'stx:goodies/builder/reports') ifFalse:[
         Stderr nextPutAll:'ERROR: cannot load stx:goodies/builder/reports.'.
         Smalltalk exit: 17
     ].
 ].
 
-Smalltalk addStartBlock:[(Smalltalk at:#'Builder::ReportRunner') start].
+(Smalltalk at:#'Builder::ReportRunner') start.