1 files changed, 1 insertions(+), 1 deletions(-)

M server.lisp

@@ 6,7 6,7 @@ philosophy in json format."
   (setf (hunchentoot:content-type*) "application/json")
   (setf (hunchentoot:header-out "Access-Control-Allow-Origin") "*")
   (let ((path (get-path query)))
-    (if path
+    (if (car path)
 	(cl-json:encode-json-to-string path)
 	(progn
 	  (insert-path (reverse (wikisophy.crawler:path-to-philosophy query)))