--- a/AbstractFileBrowser.st	Tue Oct 06 09:53:38 2009 +0200
+++ b/AbstractFileBrowser.st	Tue Oct 06 10:30:34 2009 +0200
@@ -5223,17 +5223,12 @@
 !
 
 doOpenExplorer
-    |destDir|
-
-    destDir := self currentDirectory.
+    OperatingSystem isMSWINDOWSlike ifFalse:[
+        self warn:'sorry - this operation is only available under windows'.
+    ].
 
     OperatingSystem
-        shellExecute:nil
-        lpOperation:'explore'
-        lpFile:(destDir pathName)
-        lpParameters:nil
-        lpDirectory:(destDir pathName)
-        nShowCmd:#SW_SHOWNORMAL
+        openApplicationForDocument:(self currentDirectory) operation:#explore.
 
     "Modified: / 23-07-2007 / 23:01:22 / cg"
 !
@@ -6380,7 +6375,13 @@
 
 openWebBrowser
     self forEachSelectedFileIgnoringDirectories:true do:[:path |
-        OperatingSystem openDocumentationFilename: path
+    Error
+        handle:[:ex |
+            Dialog warn:'Shell execution failed: ',ex description
+        ] do:[
+            OperatingSystem openApplicationForDocument:path operation:#open.
+            ^ self.
+        ]
     ].
 !
 
@@ -7839,9 +7840,9 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.414 2009-10-01 06:59:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.415 2009-10-06 08:30:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.414 2009-10-01 06:59:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.415 2009-10-06 08:30:34 cg Exp $'
 ! !