anchor.diff:  
       (loop while args do
         (let ((option (pop args)))
  -        (cond ((equal option "-ORBInitialReference")
  +        (cond ((equal option "-ORBInitRef")
                  (process-opt-initial-reference orb (pop args)))
  +              ((equal option "-ORBDefaultInitRef")
  +               (setf (orb-default-initial-reference orb) (pop args)))
                 ((string-starts-with option "-ORB")
                  (pop args))
                 (t (push option new-args)))))
   
       (nreverse new-args)))
  +
  +#|
  +(CORBA:ORB_init '("-ORBDefaultInitRef" "corbaloc::555objs.com"))
  +(CORBA:ORB_init '("-ORBInitRef" "NameService=corbaloc::1.2@localhost:2001/NameService"))
  +|#
   
   (defun process-opt-initial-reference (orb arg)
     (let ((eq-pos (position #\= arg)))
  
positive.code:          (let ((ior-string
                  (with-open-file (fs filename :direction :input)
                    (read-line fs))))
             (string-to-object orb ior-string))))
        (t
         (error "Unrecognized URL method: ~A" method)))))
  
  
negative.code:   (let ((ref-entry
           (assoc name (orb-initial-references orb)
                  :test #'string=)))
      (unless ref-entry
        (when (orb-default-initial-reference orb)
          (setq ref-entry (list name (format nil "~A/~A" 
                                             (orb-default-initial-reference orb)
                                             name)))
          (push ref-entry (orb-initial-references orb))))
      (unless ref-entry
        (error 'ORB/InvalidName))
      (let ((obj (cddr ref-entry)))
  