From e94bef69381fbeb345e706e9820499c9aa909d14 Mon Sep 17 00:00:00 2001
From: Carl Eastlund <cce@racket-lang.org>
Date: Tue, 19 Jan 2010 04:57:47 +0000
Subject: [PATCH] Updated more contracts in the mzlib collection.

svn: r17736
---
 collects/web-server/insta/insta.ss      | 4 ++--
 collects/web-server/stuffers/stuffer.ss | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/web-server/insta/insta.ss b/collects/web-server/insta/insta.ss
index 2dee1bc007..57a0cdb90e 100644
--- a/collects/web-server/insta/insta.ss
+++ b/collects/web-server/insta/insta.ss
@@ -61,7 +61,7 @@
           (provide/contract (#,start (request? . -> . response/c)))
           (serve/servlet (contract (request? . -> . response/c) #,start
                                    'you 'web-server
-                                   (list (make-srcloc #f #f #f #f #f)
-                                         "start"))
+                                   (make-srcloc #f #f #f #f #f)
+                                   "start")
                          #:extra-files-paths (if extra-files-path (list extra-files-path) empty)
                          #:launch-browser? launch-browser?))))]))
diff --git a/collects/web-server/stuffers/stuffer.ss b/collects/web-server/stuffers/stuffer.ss
index 57dfba47c7..7be5cfbea6 100644
--- a/collects/web-server/stuffers/stuffer.ss
+++ b/collects/web-server/stuffers/stuffer.ss
@@ -22,7 +22,7 @@
        (make-stuffer
         (in-app (stuffer-in val))
         (out-app (stuffer-out val)))))
-   stuffer?))
+   #:first-order stuffer?))
 
 (define id-stuffer
   (make-stuffer