anchor.diff:  
   
   (defun request-send (req)
  -  (setf (request-status req) nil)
  -  (setf (service-context-list req) nil)
  -  (let ((connection (request-start-request req)))
  -    (setf (request-id req) (next-request-id connection))
  -    (will-send-request (the-orb req) req)
  -    (let ((buffer (connection-start-request
  -                   connection
  -                   (request-id req)
  -                   (service-context-list req)
  -                   (response-expected req)
  -                   (request-effective-profile req)
  -                   (request-operation req))))
  -      (setf (request-buffer req) buffer)
  -      (funcall (output-func req) req buffer) 
  -      (setf (request-buffer req) nil)
  -      (connection-send-request connection buffer
  -                               (if (response-expected req) req)))))
  +  (request-start-request 
  +   req
  +   (lambda (connection request-id)
  +     (setf (service-context-list req) nil)
  +     (will-send-request (the-orb req) req)
  +     (let ((buffer
  +            (connection-start-request connection request-id (service-context-list req)
  +                                      (response-expected req) (request-effective-profile req)
  +                                      (request-operation req))))
  +       (setf (request-buffer req) buffer)
  +       (funcall (output-func req) req buffer) 
  +       (setf (request-buffer req) nil)
  +       (connection-send-request connection buffer
  +                                (if (response-expected req) req))))))
   
   
   ;;; void send_oneway ()
  
positive.code: ;;;; clorb-request.lisp -- Client Request
  ;; $Id: clorb-request.lisp,v 1.12 2004/02/08 19:18:57 lenst Exp $
  
  (in-package :clorb)
  
  
negative.code:               :input-func input-func 
                :error-handler #'static-error-handler)))
      (request-send req)
      (if *call-hook* 
        (funcall *call-hook* req)
        (when response-expected
          (request-get-response req)))))
  
  
  (defun request-invoke (req)
  