diff options
| -rw-r--r-- | src/gemma.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gemma.lisp b/src/gemma.lisp index 008e2841b82f..ad096ec57080 100644 --- a/src/gemma.lisp +++ b/src/gemma.lisp @@ -129,7 +129,7 @@ maximum interval." (hunchentoot:define-easy-handler (complete-task-handler :uri "/complete") (task) (setf (hunchentoot:content-type*) "application/json") - (let* ((key (intern (camel-case-to-lisp task) "GEMMA"))) + (let* ((key (find-symbol (camel-case-to-lisp task) "GEMMA"))) (format t "Marking task ~A as completed" key) (complete-task key) (encode-json-to-string (response-for (get-task key)))))) |