--- a/SystemBrowser.st	Mon Feb 25 21:06:25 2002 +0100
+++ b/SystemBrowser.st	Mon Feb 25 21:07:30 2002 +0100
@@ -165,6 +165,20 @@
     "Modified: / 5.11.2001 / 16:51:02 / cg"
 !
 
+openOn:anEnvironment
+    |browser|
+
+    browser := self 
+                newWithLabel:(self classResources string:'System Browser')
+                setupBlock:[:browser | browser environment:anEnvironment.
+                                       browser setupForAll]
+                onDevice:(Screen current).
+
+    "
+     SystemBrowser openOn:Smalltalk
+    "
+!
+
 openOnDevice:aDisplay
     "launch a standard browser on another display."
 
@@ -3793,6 +3807,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.148 2002-02-15 13:06:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.149 2002-02-25 20:07:30 cg Exp $'
 ! !
 SystemBrowser initialize!