anchor.diff:         (clorb::listner-socket (clorb::adaptor clorb::*the-orb*))))
   |#
   
  -(setq clorb:*host*
  -      (ccl::tcp-addr-to-str (ccl::local-interface-ip-address)))
  +(ignore-errors
  + (setq clorb:*host*
  +       (ccl::tcp-addr-to-str (ccl::local-interface-ip-address))))
   
   #+t2-has-ifr
   (with-open-stream (s (ccl::open-tcp-stream "172.17.17.18" 5111))
  
positive.code: (defun run ()
    (setup-pns)
    (op:run clorb::*the-orb*))
  
negative.code:         (make-instance 'log-window :window-title "Log")))
  |#
  
  (defvar *orb* (CORBA:ORB_init))
  (format t "~&;;; Activating the POA~%")
  (ignore-errors
   (op:activate (op:the_poamanager (clorb::root-poa))))
  (clorb:load-ir)
  
  #|
  