anchor.diff:         (should-retry req exc)))
   
       (otherwise 
  -     req)))
  +     (request-status req))))
   
   
   (defun request-wait-response (req)
  
positive.code:      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)))
  
      (:error                             ; Communication error
       (setf (request-status req) :system_exception)
  
negative.code:       (progn (has-received-other (the-orb req) req)
               (request-send req)
               nil)
        (request-status req)))
  
  (defun request-poll (req)
    ;; Check if result of request is ready
  