anchor.diff:  (defun poa-invoke-1 (poa sreq)
     (let* ((oid (server-request-oid sreq))
            (operation (server-request-operation sreq))
  -         (*poa-current*
  -          (make-poa-current :POA poa :object-id oid))
  +         (*poa-current* (make-poa-current poa oid))
            (servant (trie-get oid (POA-active-object-map poa)))
            (cookie nil)
            (topost nil))
  
positive.code: 
  ;; ----------------------------------------------------------------------
  ;;;; Implicit activation
  ;; ----------------------------------------------------------------------
  
  (define-method _this ((servant servant))
    (let* ((poa (or (op:_default_POA servant)
  
negative.code: ;;;; clorb-poa.lisp -- Portable Object Adaptor
  ;; $Id: clorb-poa.lisp,v 1.10 2002/06/01 05:46:38 lenst Exp $
  
  (in-package :clorb)
  
  