Fix #44.

May break something else, though. :-)
Moved the whole `TestSuiteRunner` into `self environment`.

src/Helios-SUnit.js

@@ -1695,7 +1695,7 @@ var worker;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-worker=$recv($globals.TestSuiteRunner)._on_($self._testCases());
+worker=$recv($recv($self._environment())._classNamed_("TestSuiteRunner"))._on_($self._testCases());
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 $ctx1.sendIdx["on:"]=1;
 //>>excludeEnd("ctx");
@@ -1710,10 +1710,10 @@ return self;
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "runTests\x0a\x09| worker |\x0a\x09worker := TestSuiteRunner on: self testCases.\x0a\x09testResult := worker result.\x0a\x09self announcer announce: (HLRunTests on: worker).\x0a\x09self subscribeToTestSuite: worker.\x0a\x09worker run",
-referencedClasses: ["TestSuiteRunner", "HLRunTests"],
+source: "runTests\x0a\x09| worker |\x0a\x09worker := (self environment classNamed: #TestSuiteRunner) on: self testCases.\x0a\x09testResult := worker result.\x0a\x09self announcer announce: (HLRunTests on: worker).\x0a\x09self subscribeToTestSuite: worker.\x0a\x09worker run",
+referencedClasses: ["HLRunTests"],
 //>>excludeEnd("ide");
-messageSends: ["on:", "testCases", "result", "announce:", "announcer", "subscribeToTestSuite:", "run"]
+messageSends: ["on:", "classNamed:", "environment", "testCases", "result", "announce:", "announcer", "subscribeToTestSuite:", "run"]
 }),
 $globals.HLSUnitModel);
 

src/Helios-SUnit.st

@@ -469,7 +469,7 @@ invertSelectedPackages
 
 runTests
 	| worker |
-	worker := TestSuiteRunner on: self testCases.
+	worker := (self environment classNamed: #TestSuiteRunner) on: self testCases.
 	testResult := worker result.
 	self announcer announce: (HLRunTests on: worker).
 	self subscribeToTestSuite: worker.