diff --git a/src/pattern/questionnaire.lisp b/src/pattern/questionnaire.lisp
index 81f6694..5f517c1 100644
--- a/src/pattern/questionnaire.lisp
+++ b/src/pattern/questionnaire.lisp
@@ -228,7 +228,7 @@ Returns:
     ;; Return the reversed result list
     (nreverse result)))
 
-(declaim (ftype (function (question) (values string string string))
+(declaim (ftype (function (question) (values string string list))
                 extract-question-components))
 (defun extract-question-components (question)
   "Extracts components of a question stored as a plist.