anchor.diff:  
   
   (define-method "RECEIVE_REPLY" ((self my-client-interceptor) info)
  -  (mess 3 "RECEIVE_REPLY: ~S" (ignore-errors (op:get_reply_service_context info 17)))
  -)
  +  (mess 3 "RECEIVE_REPLY: ~S ~S Res=~S"
  +        (op:reply_status info)
  +        (ignore-errors (op:get_reply_service_context info 17))
  +        (op:result info)))
  +
   
   (define-method "RECEIVE_EXCEPTION" ((self my-client-interceptor) info)
  -  (mess 3 "RECEIVE_EXCEPTION: ~S" (ignore-errors (op:get_reply_service_context info 17)))
  -)
  +  (mess 3 "RECEIVE_EXCEPTION: ~S ~S ~S"
  +        (op:reply_status info)
  +        (op:received_exception_id info)
  +        (ignore-errors (op:get_reply_service_context info 17))))
  +
   
   (define-method "RECEIVE_OTHER" ((self my-client-interceptor) info)
     (mess 3 "RECEIVE_OTHER: ~S ~S" (op:reply_status info)
  
positive.code: (define-method name ((self my-client-interceptor))
    (slot-value self 'name))
  
  (define-method "SEND_REQUEST" ((self my-client-interceptor) info)
    (mess 3 "SEND_REQUEST: ~S ~S" (op:operation info) (op:effective_target info))
    (op:add_request_service_context 
     info 
     (iop:ServiceContext :context_id 17 :context_data #(1))
  
negative.code:   (declare (ignore operation)))
  
  
  
  ;;;; ClientRequestInfo methods
  
  (defclass client-request-info (base-request-info
                                 PortableInterceptor:ClientRequestInfo)
    ())
  
  
  ;; Base overrides
  
  (define-method "REPLY_STATUS" ((self client-request-info))
  #| FIXME:
  