anchor.diff:        (progn (has-received-other (the-orb req) req)
                (request-send req)
                nil)
  -      req))
  +      (request-status req)))
   
   (defun request-poll (req)
     ;; Check if result of request is ready
  
positive.code: ;;;; clorb-request.lisp -- Client Request
  ;; $Id: clorb-request.lisp,v 1.18 2006/03/15 17:58:17 lenst Exp $
  
  (in-package :clorb)
  
  
negative.code: (defun request-reply (req status buffer service-context)
    (setf (request-status req) status)
    (setf (request-buffer req) buffer)
    (setf (reply-service-context req) service-context)
    (case status
      (:system_exception
       (multiple-value-bind (exc id)
           (unmarshal-systemexception buffer)
         (setf (request-exception-id req) id)
         (setf (request-exception req) exc)))))
  
  
  (defun should-retry (req exc)
    ;; Returns Nil and retries OR returns status.
    ;;
    ;; This could be made more complicated. There could be per
    ;; object or per orb policies for retrying. Limit to the number
  