anchor.diff:      (unwind-protect 
         (let ((*running-orb* t))
           (loop while (orb-active orb)
  -              do (orb-work nil)))
  +              do (orb-work orb t nil)))
         (setq *running-orb* old))))
   
   
  
positive.code:     :the-orb orb
      :profiles profiles
      :raw-profiles raw-profiles ))
  
  
  (defmethod add-pending-client-request ((orb clorb-orb) client-request)
  
negative.code:    (initial-references :initform '()
                         :accessor orb-initial-references)
     (default-initial-reference
       :initform nil
       :accessor orb-default-initial-reference)
     (pending-client-request
      :initform nil
      :accessor pending-client-request)
     (work-queue  :initform nil  :accessor work-queue)))
  
  
  
  