anchor.diff:         (should-retry req exc)))
   
       (otherwise 
  -     req)))
  +     (request-status req))))
   
   
   (defun request-wait-response (req)
  
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:      nil)
  
      (:system_exception
       (should-retry req (request-exception req)))
  
      (:error                             ; Communication error
       (setf (request-status req) :system_exception)
  