diff --git a/mithril.scm b/mithril.scm
index 33be6e7..0037ae6 100644
--- a/mithril.scm
+++ b/mithril.scm
@@ -23,7 +23,8 @@ heading component:
       (h1 ~vnode.state.title))
     :title \"Title Text\"))
 ```"
-  (when (= (remainder (length args) 2 1))
+  (when (and (not (null? args))
+	     (= (remainder (length args) 2 1)))
     (error (format
 	    "mithril:comp-> Component macro expects even length args list.