kmx.io/cl-thot

diff --git a/thot.lisp b/thot.lisp
index 2eb8cf8..bc111a8 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -514,10 +514,10 @@ The requested url "
     (404-not-found-handler)))
 
 (defun call-handler-form (list)
-  (apply (first list) (rest list)))
+  (apply (fdefinition (first list)) (rest list)))
 
 (defun call-handler (list)
-  (apply (first list) (rest list)))
+  (apply (fdefinition (first list)) (rest list)))
 
 (defun request-handler (request reply)
   (let ((handlers *url-handlers*)