anchor.diff:       nil)
   
       (:system_exception
  -     (multiple-value-bind (exc id)
  -         (unmarshal-systemexception (request-buffer req))
  -       (setf (request-exception-id req) id)
  -       (setf (request-exception req) exc)
  -       (should-retry req exc)))
  +     (should-retry req (request-exception req)))
   
       (:error                             ; Communication error
        (setf (request-status req) :system_exception)
  
positive.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))
  
  
  (defun should-retry (req exc)
    ;; Returns Nil and retries OR returns req.
    ;;
    ;; This could be made more complicated. There could be per
    ;; object or per orb policies for retrying. Limit to the number
  
negative.code:        (should-retry req exc)))
  
      (otherwise 
       (request-status req))))
  
  
  (defun request-wait-response (req)
  