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