--- a/UnixPTYStream.st	Thu Jul 09 22:20:31 1998 +0200
+++ b/UnixPTYStream.st	Thu Jul 09 22:23:52 1998 +0200
@@ -125,6 +125,7 @@
     pty nextPutLine:password.
     command := Dialog request:'command'.
     pty nextPutLine:command.
+    pty nextPutLine:'exit'.
                                                                 [exEnd]
 
 "
@@ -342,5 +343,5 @@
 !UnixPTYStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnixPTYStream.st,v 1.3 1998-07-09 20:20:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnixPTYStream.st,v 1.4 1998-07-09 20:23:52 cg Exp $'
 ! !