anchor.diff:          info))
   
   (define-method RECEIVE_REQUEST ((self my-server-interceptor) info)
  -  (mess 3 "RECEIVE_REQUEST: ~S" info))
  +  (mess 3 "RECEIVE_REQUEST: ~S ~S"
  +        (op:operation info) 
  +        (args-except info :param_out)))
   
   (define-method SEND_REPLY ((self my-server-interceptor) info)
  -  (mess 3 "SEND_REPLY: ~S" info)
  +  (mess 3 "SEND_REPLY: Result=~S out-args=~S" 
  +        (op:result info)
  +        (args-except info :param_in))
     (op:add_reply_service_context
      info
      (iop:servicecontext
  
positive.code: 
  
  (define-method "RECEIVE_REPLY" ((self my-client-interceptor) info)
    (mess 3 "RECEIVE_REPLY: ~S" (ignore-errors (op:get_reply_service_context info 17)))
  )
  
  (define-method "RECEIVE_EXCEPTION" ((self my-client-interceptor) info)
    (mess 3 "RECEIVE_EXCEPTION: ~S" (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)
  
negative.code:                         service_context replace))
  
  
  
  ;;;; ORB Operations for interceptors
  
  