anchor.diff:      (mezzanine.supervisor:with-mutex (*tcp-connection-lock*)
         (push connection *tcp-connections*))
       (tcp4-send-packet connection seq 0 nil :ack-p nil :syn-p t)
  -    ;; FIXME: Timeouts
  -    (with-tcp-connection-locked connection
  +    ;; FIXME: Better timeout mechanism.
  +    (let ((timeout (+ (get-universal-time) 10)))
         (loop
            (when (not (eql (tcp-connection-state connection) :syn-sent))
              (return))
  -         (mezzanine.supervisor:condition-wait (tcp-connection-cvar connection)
  -                                              (tcp-connection-lock connection))))
  +         (when (> (get-universal-time) timeout)
  +           (with-tcp-connection-locked connection
  +             (setf (tcp-connection-state connection) :closing))
  +           (error "Connection timed out."))
  +         (mezzanine.supervisor:wait-for-heartbeat)))
       connection))
   
   (defun tcp-send (connection data &optional (start 0) end)
  
positive.code:     (ub16ref/be packet (+ 14 header-length 6))))
  
  (defun sys.int::process-wait-with-timeout (reason timeout fn &rest args)
    (apply #'sys.int::process-wait reason fn args))
  
  (defun sys.int::process-wait (reason fn &rest args)
    (loop
       (when (apply fn args)
         (return))
       (mezzanine.supervisor:thread-yield))
    t)
  
  (defun ping-host (host &optional (count 4))
  
negative.code:       (return-from arp-lookup (third e))))
    (dotimes (attempt 3)
      (send-arp interface ptype address)
      ;; FIXME: better timeout mechanism.
      (or (sys.int::process-wait-with-timeout "ARP Lookup" 5
                                              (lambda ()
                                                (dolist (e *arp-table* nil)
                                                  (when (and (eql (first e) ptype)
                                                             (eql (second e) address))
                                                    (return t)))))
          (error "ARP lookup timed out."))
      (dolist (e *arp-table*)
        (when (and (eql (first e) ptype)
  		 (eql (second e) address))
  