anchor.diff:         (setf list (delete old list)))
        (setf (,context-accessor self) (cons service_context list))))
   
  -(define-method "ADD_REQUEST_SERVICE_CONTEXT" ((self client-request)
  +(define-method "ADD_REQUEST_SERVICE_CONTEXT" ((self client-request-info)
                                                       service_context replace)
  -  (%add-service-context self service-context-list 
  +  (%add-service-context (the-request self) service-context-list 
                           service_context replace))
   
  -(define-method "REQUEST_ID" ((self client-request))
  -  (request-id self))
  -
  -(define-method "OPERATION" ((self client-request))
  -  (request-operation self))
  -
  -(define-method "ARGUMENTS" ((self client-request))
  +(define-method "REQUEST_ID" ((self client-request-info))
  +  (request-id (the-request self)))
  +
  +(define-method "OPERATION" ((self client-request-info))
  +  (request-operation (the-request self)))
  +
  +(define-method "ARGUMENTS" ((self client-request-info))
     (map 'list
          (lambda (param)
            (Dynamic:Parameter :argument (op:argument param)
                               :mode (op:arg_modes param)))
  -       (cdr (request-paramlist self))))
  -
  -(define-method "EXCEPTIONS" ((self client-request))
  -   (request-exceptions self))
  -
  -(define-method "CONTEXTS" ((self client-request))
  +       (cdr (request-paramlist (the-request self)))))
  +
  +(define-method "EXCEPTIONS" ((self client-request-info))
  +   (request-exceptions (the-request self)))
  +
  +(define-method "CONTEXTS" ((self client-request-info))
     nil)
   
  -(define-method "OPERATION_CONTEXT" ((self client-request))
  +(define-method "OPERATION_CONTEXT" ((self client-request-info))
     nil)
   
  -(define-method "RESULT" ((self client-request))
  -  (op:return_value self))
  -
  -(define-method "RESPONSE_EXPECTED" ((self client-request))
  -  (response-expected self))
  -
  -(define-method "REPLY_STATUS" ((self client-request))
  +(define-method "RESULT" ((self client-request-info))
  +  (op:return_value (the-request self)))
  +
  +(define-method "RESPONSE_EXPECTED" ((self client-request-info))
  +  (response-expected (the-request self)))
  +
  +(define-method "REPLY_STATUS" ((self client-request-info))
   #| FIXME:
   This attribute describes the state of the result of the operation invocation. 
   Its value can be one of the following:
  
positive.code: ;;;; clorb-pi-impl.lisp -- PortableInterceptors implementation
  
  (in-package :clorb)
  
  
  ;;;; ORB Subclass for PortableInterceptors
  
negative.code: PortableInterceptor::LOCATION_FORWARD
  PortableInterceptor::TRANSPORT_RETRY
  |#
    (ecase (request-status (the-request self))
      ((:user_exception) PortableInterceptor::USER_EXCEPTION)
      ((:no_exception) PortableInterceptor::SUCCESSFUL)
      ((:system_exception) PortableInterceptor::SYSTEM_EXCEPTION)
      ((:location_forward) PortableInterceptor::LOCATION_FORWARD)))
  
  (define-method "FORWARD_REFERENCE" ((self client-request-info))
    (object-forward (request-target (the-request self))))
  
  (define-method "GET_SLOT" ((self client-request-info) _ID)
    (DECLARE (IGNORE _ID))
    (raise-system-exception 'CORBA:NO_IMPLEMENT))
  
  