diff --git a/mithril.scm b/mithril.scm
index dab7617..c5b47c6 100644
--- a/mithril.scm
+++ b/mithril.scm
@@ -24,7 +24,11 @@ heading component:
     :title \"Title Text\"))
 ```"
   (when (= (remainder (length args) 2 1))
-    (error "Component macro expects even length args list."))
+    (error (format
+	    "mithril:comp-> Component macro expects even length args list.
+
+Call: (mithril:comp ~S ~S)"
+	    view args)))
   `(object
     :view
     (lambda (vnode) (,@view))