--- a/RegressionTests__SnapshotRestartTests.st	Fri May 13 21:23:11 2016 +0200
+++ b/RegressionTests__SnapshotRestartTests.st	Tue May 31 17:03:32 2016 +0100
@@ -20,7 +20,7 @@
 !SnapshotRestartTests methodsFor:'asserting'!
 
 assertAllTestsPassed: logfile
-    | innerSuite expected |
+    | innerSuite expected logfileContents |
 
     innerSuite := ToRunOnFreshAndRestartedSnapshotTests buildSuite.
     expected := '%1 run, %1 passed, 0 skipped, 0 failed, 0 errors ### HERE ### ' bindWith: innerSuite tests size.
@@ -36,11 +36,15 @@
     "
     logfile contents asString
     "
-    self assert: false description: ('Not all inner tests passed: ' , logfile asAbsoluteFilename contents asString).
+    logfile readingFileDo: [ :f |
+        "Read at most 5MB of the log to avoid reading gigabytes 
+         of output produced by a 'thundestorm'."
+        logfileContents := f next: (logfile fileSize min: (5 * 1024 * 1024"5MB")).
+    ].
+    self assert: false description: ('Not all inner tests passed: ' , logfileContents).
 
     "Created: / 14-08-2013 / 20:06:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 13-09-2013 / 12:06:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 08-09-2014 / 15:21:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 31-05-2016 / 17:00:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SnapshotRestartTests methodsFor:'compilation'!