--- a/TerminalView.st	Tue Jun 24 12:46:50 2014 +0200
+++ b/TerminalView.st	Sat Jun 28 09:49:33 2014 +0200
@@ -478,6 +478,10 @@
     recorderStream := aWriteStream.
 !
 
+shellDirectory:something
+    shellDirectory := something.
+!
+
 shellTerminateAction:aBlock
     "set the block which is evaluated when the shell terminates.
      Can be used to close down the application in this case."
@@ -1761,8 +1765,10 @@
 
     |fileName|
 
-    fileName := shellDirectory construct:self selectionAsString.
-    self openFileBrowserOnFileNamed:fileName
+    shellDirectory notNil ifTrue:[
+        fileName := shellDirectory construct:self selectionAsString.
+        self openFileBrowserOnFileNamed:fileName
+    ].
 !
 
 setGreenDisplayMode
@@ -2478,11 +2484,11 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.189 2014-06-09 11:44:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.190 2014-06-28 07:49:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.189 2014-06-09 11:44:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.190 2014-06-28 07:49:33 cg Exp $'
 ! !