--- a/TerminalSession.st	Thu Aug 01 12:48:05 2013 +0200
+++ b/TerminalSession.st	Thu Aug 01 20:47:02 2013 +0200
@@ -287,15 +287,15 @@
     ].
 
     shellPid isNil ifTrue:[
-        self warn:'Cannot start shell'.
+        "/ self warn:'Cannot start shell'.
         outStream close.
         inStream close.
         inStream := outStream := nil.
-        ^ self.
     ].
+    ^ shellPid
 
-    "Created: / 20.7.1998 / 18:19:32 / cg"
-    "Modified: / 5.5.1999 / 17:28:37 / cg"
+    "Created: / 20-07-1998 / 18:19:32 / cg"
+    "Modified: / 01-08-2013 / 20:38:37 / cg"
 ! !
 
 !TerminalSession methodsFor:'input / output'!
@@ -504,11 +504,11 @@
 !TerminalSession class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.5 2013-07-07 22:16:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.6 2013-08-01 18:47:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.5 2013-07-07 22:16:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.6 2013-08-01 18:47:02 cg Exp $'
 ! !