From cb8975b8b30d07e32c459d257dec7b0c1c3c32a7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 26 May 2012 19:46:19 -0600
Subject: [PATCH] another error-conversion repair

---
 src/racket/src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/port.c b/src/racket/src/port.c
index 35e2f05704..58645f2872 100644
--- a/src/racket/src/port.c
+++ b/src/racket/src/port.c
@@ -9155,7 +9155,7 @@ static Scheme_Object *subprocess(int c, Scheme_Object *args[])
       } else {
 	mzCLOSE_FILE_HANDLE(err_subprocess, 1);
       }
-      scheme_system_error(name, "fork", errid);
+      scheme_system_error(name, "fork", fork_errno);
       return scheme_false;
 
     case 0: /* child */