aRequest on: 'end' do: [
            body := 'hello from server i got the event\n'.
            headers := Dictionary new.
            headers
                at: 'Content-Type'
                put: 'text/html'.
            headers
                at: 'Content-Length'
                put: body size.
            aResponse writeHead: (Array with: 200 with: headers).
            Transcript show: aResponse; cr.
            "python urllib2 did not like the next line: http://pastebin.com/qx0M7ads"
            aResponse end: body.
        ]