diff --git a/scribble-html-lib/scribble/html/xml.rkt b/scribble-html-lib/scribble/html/xml.rkt
index b41d93c5..6e4f416f 100644
--- a/scribble-html-lib/scribble/html/xml.rkt
+++ b/scribble-html-lib/scribble/html/xml.rkt
@@ -33,7 +33,7 @@
   (let loop ([xs xs] [as '()])
     (define a (and (pair? xs) (attribute->symbol (car xs))))
     (cond [(not a) (values (reverse as) xs)]
-          [(null? (cdr xs)) (error 'attriubtes+body
+          [(null? (cdr xs)) (error 'attributes+body
                                    "missing attribute value for `~s:'" a)]
           [else (loop (cddr xs) (cons (cons a (cadr xs)) as))])))