> I -believe- that it'd be correct to change that to: > > (fd-stream > (let* ((fd (fd-dup (ioblock-device (stream-ioblock object))))) > (values fd > nil > (cons fd close-in-parent) > close-on-error))) > Thanks Gary, for the quick response. That fixes the problem for me. with kind regards, Stefan Mandl