detecting broken pipe

[Dan McMahill]

Hello,

I'm doing something like the following:

(use-modules (ice-9 popen))

(define pcb:pipe #f)

(define (pcb:launch-pcb)
  (set! pcb:pipe (open-output-pipe "pcb --listen"))
)

then later on I call pcb:launch-pcb and send stuff with

(display "some string" pcb:pipe)

This is all good right up until the "pcb --listen" command finishes 
(perhaps becuase it is a gui program and someone simply exited from it). 
 At this point the pipe is broken and the program which uses guile crashes.

So is there an easy way to detect when the pipe was terminated so I can 
avoid crashing?

Thanks
-Dan