(module tester<br>&nbsp; mzscheme<br>&nbsp;<br>&nbsp; (require (lib &quot;servlet.ss&quot; &quot;web-server&quot;)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (lib &quot;xml.ss&quot; &quot;xml&quot;))<br>&nbsp; (provide start interface-version timeout)<br>&nbsp; <br>&nbsp; (define overall &#39;())<br>
&nbsp; (define timeout +inf.0)<br>&nbsp; (define interface-version &#39;v1)<br>&nbsp; <br>&nbsp; (define (start initial-request)<br>&nbsp;&nbsp;&nbsp; (let ((req (extract-binding/single &#39;req<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (request-bindings initial-request))))<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (string=? req &quot;yes&quot;)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (let ((cookie<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (extract-bindings &#39;cookie<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (request-headers initial-request))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (send/finish `(p ,(format &quot;~a&quot; cookie))))<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (send/finish<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (make-response/full 200 &quot;None&quot; (current-seconds) &quot;text/html; charset=utf-8&quot; <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;((cookie . &#39;(&quot;Set-Cookie: NAME=hello;&quot;)))<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (xexpr-&gt;string `(p &quot;hello, sent&quot;))))))))<br><br>When I try to go to this page, I get the following error:<br><br>Servlet didn&#39;t load.
/home/justin/plw/./servlets/tester.ss:27:24: compile: unbound variable in module in: make-response/full

 === context ===
/usr/lib/plt/collects/mred/private/snipfile.ss:192:10
/usr/lib/plt/collects/web-server/dispatchers/dispatch-servlets.ss:281:4: load-servlet/path
/usr/lib/plt/collects/web-server/dispatchers/dispatch-servlets.ss:264:4: reload-servlet-script
...ivate/cache-table.ss:38:46
/usr/lib/plt/collects/web-server/private/cache-table.ss:30:11
cache-table-lookup!
select-handler/no-breaks
select-handler/no-breaks
select-handler/no-breaks
dispatcher?
dispatcher?
/usr/lib/plt/collects/web-server/private/dispatch-server-unit.ss:73:10: connection-loop<br><br>Why should make-response/full not be bound?<br>