Updated more contracts in the mzlib collection.

svn: r17736

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?))))]))

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