diff --git a/undone/main.scm b/undone/main.scm
index b175954..aae732b 100644
--- a/undone/main.scm
+++ b/undone/main.scm
@@ -219,5 +219,5 @@
          (for-each
           (lambda (view)
             (format #t "~a~20t~a~%"
-                    (car view) (procedure-documentation (cdr view))))
+                    (car view) (view-doc (make (cdr view)))))
           view-list)))))
diff --git a/undone/view.scm b/undone/view.scm
index ce1ef23..61ec5c7 100644
--- a/undone/view.scm
+++ b/undone/view.scm
@@ -1,13 +1,14 @@
 (define-module (undone view)
   #:use-module (oop goops)
   #:export (<view> view-list sort-view filter-view print-item
-                   get-list-for print-view))
+                   get-list-for print-view view-doc))
 
 (define-generic sort-view)
 (define-generic filter-view)
 (define-generic print-item)
 (define-generic get-list-for)
 (define-generic print-view)
+(define-generic view-doc)
 
 (define-class <view> ()
   (todo-list #:init-value '() #:init-keyword #:todo-list))
@@ -33,3 +34,6 @@
   (for-each
    (lambda (item) (print-item v item))
    (get-list-for v)))
+
+(define-method (view-doc (v <view>))
+  "Default view, show only the basics.")