From 58fa3dd6d74371daabd142baeac289329f937b71 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 26 Nov 2011 19:59:53 -0700
Subject: [PATCH] fix non-ELF unix starter creation

---
 collects/compiler/private/elf.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/compiler/private/elf.rkt b/collects/compiler/private/elf.rkt
index 4f2bddd2cd..542fa1a8b1 100644
--- a/collects/compiler/private/elf.rkt
+++ b/collects/compiler/private/elf.rkt
@@ -185,7 +185,7 @@
    (lambda (in)
      (read-elf
       in
-      (lambda () (values #f #f #f))
+      (lambda () (values #f #f #f #f))
       (lambda (elf sections programs str-section strs)
         (let ([new-sec-pos (+ (elf-sh-offset elf)
                               (* (elf-sh-esize elf) (elf-sh-ecount elf)))]