--- a/InternalPipeStream.st	Fri May 30 11:37:23 2014 +0200
+++ b/InternalPipeStream.st	Tue Jun 03 00:16:14 2014 +0200
@@ -37,7 +37,7 @@
                                                                 [exEnd]
 
                                                                 [exBegin]
-    |userInput elizasOutput|
+    |userInput elizasOutput top terminal|
 
     userInput    := InternalPipeStream new.
     elizasOutput := InternalPipeStream new.
@@ -69,7 +69,7 @@
             ^ self
         ].
 
-        answer := 'Tell me more.'
+        answer := 'Tell me more.'.
         elizasOutput nextPutLine:answer.
         elizasOutput nextPutAll:'>'.
     ].
@@ -138,6 +138,6 @@
 !InternalPipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/InternalPipeStream.st,v 1.3 2013-10-17 13:03:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/InternalPipeStream.st,v 1.4 2014-06-02 22:16:14 vrany Exp $'
 ! !