83c83,84
<                                (apply function (socket-stream client-socket) arguments)
---
>                                 (multiple-value-bind (*remote-host* *remote-port*) (get-peer-name client-socket)
>                                   (apply function (socket-stream client-socket) arguments))