diff --git a/mithril.scm b/mithril.scm
index b6fbe71..1d101f0 100644
--- a/mithril.scm
+++ b/mithril.scm
@@ -26,7 +26,7 @@ heading component:
     :title \"Title Text\"))
 ```"
   (when (and (not (null? args))
-	     (= (remainder (length args) 2 1)))
+	     (= (remainder (length args) 2) 1))
     (error (format
 	    "mithril:comp-> Component macro expects even length args list.