anchor.diff:      (load-templates)
       (load-urls)
       (call-next-method)))
  +    
  +(defmethod hunchentoot:acceptor-dispatch-request ((hunchentoot:*acceptor* ssl-server-acceptor) (hunchentoot:*request* hunchentoot:request))
  +  (let* ((*template-provider-registry* (template-provider-registry-of hunchentoot:*acceptor*) )
  +	 (*tag-library-provider-registry* (tag-library-provider-registry-of hunchentoot:*acceptor*) )
  +	 (*url-cache* (url-cache-of hunchentoot:*acceptor*))
  +	 (hunchentoot:*log-lisp-errors-p* t)
  +	 (hunchentoot:*show-lisp-errors-p* t)
  +	 (hunchentoot:*dispatch-table* (dispatch-table-of hunchentoot:*acceptor*) ))
  +    (load-templates)
  +    (load-urls)
  +    (call-next-method)))    
   
   (defmethod run-web-server ( (server-acceptor web-server-acceptor) &key (wait nil) )
     (let* ((acceptor (hunchentoot:start server-acceptor))
  
positive.code:     :initarg :dispatchers
      :accessor dispatch-table-of)))
  
  ;;;------------------------------------------------------------------------------------
  ;;; Generics
  ;;;------------------------------------------------------------------------------------
  
negative.code:     (when wait
        (bt:join-thread (hunchentoot::acceptor-process taskmaster) ))
      acceptor))
      
  (defmethod run-web-server ( (server-acceptor ssl-server-acceptor) &key (wait nil) )
    (let* ((acceptor (hunchentoot:start server-acceptor))
  	 (taskmaster (hunchentoot::acceptor-taskmaster acceptor)))
      (when wait
        (bt:join-thread (hunchentoot::acceptor-process taskmaster) ))
      acceptor))    
  
  (defmacro create-web-server (( &rest initialization-args)
  			     &key 
  