--- a/TestRunner.st	Mon Dec 11 16:28:15 2000 +0100
+++ b/TestRunner.st	Mon Dec 11 16:33:45 2000 +0100
@@ -332,7 +332,8 @@
     testCaseName := self scriptModel value at:(self script value).
     testCase := Smalltalk at:testCaseName asSymbol.
     testCase notNil ifTrue:[
-        UserPreferences default systemBrowserClass openInClass:testCase
+        (UserPreferences current systemBrowserClass openInClass:testCase)
+            selectProtocolsMatching:'*'        
     ]
 !
 
@@ -682,5 +683,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.7 2000-12-11 15:28:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.8 2000-12-11 15:33:45 cg Exp $'
 ! !