; Wandelt ein Record vom Typ socket-address in einen String um
(define (socket-address->string socket-address)
  (call-with-values
   (lambda ()
     (socket-address->internet-address socket-address))
   (lambda (address port)
     (let ((extract (lambda (shift)
		      (number->string
		       (bitwise-and (arithmetic-shift address (- shift))
				    255)))))
       (string-append
	(extract 24) "." (extract 16) "."
	(extract 8) "." (extract 0))))))