(defvar *ucw-tal-root* (merge-pathnames (make-pathname :directory '(:relative "wwwroot")) (asdf:component-pathname (asdf:find-system :ucw))))