diff --git a/src/handlers/questionnaire.lisp b/src/handlers/questionnaire.lisp
index 11a60eb..28580e6 100644
--- a/src/handlers/questionnaire.lisp
+++ b/src/handlers/questionnaire.lisp
@@ -11,9 +11,8 @@
 (defun questionnaire-uri (request)
   (questionnaire-uri-p (request-uri request)))
 
-(defun process-questionnaire-get (lang survey)
+(defun process-questionnaire-get (lang)
   (check-type lang string)
-  (check-type survey ml-survey:survey)
   (setf *html-lang* lang)
   (ml-survey/views:sus-form))
 
@@ -28,6 +27,6 @@
 (define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang)
   (let ((s (make-instance 'ml-survey:survey :id (get-survey-id (request-uri*)))))
     (cond ((eq (hunchentoot:request-method*) :get)
-           (process-questionnaire-get lang s))
+           (process-questionnaire-get lang))
           ((eq (hunchentoot:request-method*) :post)
            (process-questionnaire-post *request* s)))))