From c9ad4a61855d4fa5c09bc3edf53c69d80a0f2eaa Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 May 1996 20:05:50 +0000
Subject: [PATCH] Fix thinko.

---
 v7/src/edwin/process.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index b26bc0d19..8c1b8165e 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: process.scm,v 1.49 1996/05/15 18:48:40 cph Exp $
+;;;	$Id: process.scm,v 1.50 1996/05/15 20:05:50 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-96 Massachusetts Institute of Technology
 ;;;
@@ -668,7 +668,9 @@ after the listing is made.)"
 				 port buffer 0 (- index start-index))))
 			   (set! start-index (+ start-index n-written))
 			   n-written))
-		       (output-port/close port)))))))
+		       (begin
+			 (output-port/close port)
+			 0)))))))
 	  (begin
 	    (output-port/close port)
 	    (receiver #f))))))
-- 
2.25.1