diff --git a/docs/docread/docread.scm b/docs/docread/docread.scm
index e610749..00d06b7 100644
--- a/docs/docread/docread.scm
+++ b/docs/docread/docread.scm
@@ -129,7 +129,7 @@
                                      (set! comments '())))
 
                                    ; (define (foo bar baz) quux)
-                                   ((and (list? i) (eq? (car i) 'define) (list? (cadr i)))
+                                   ((and (list? i) (eq? (car i) 'define) (pair? (cadr i)))
                                     (let* ((def (cadr i)) (name (car def)) (args (cdr def)))
                                      (set! defines (cons (cons name (make-doc-entry (make-lambda-doc name args '() #f) (reverse comments))) defines))
                                      (set! comments '())))