diff --git a/collects/xml/private/xexpr.ss b/collects/xml/private/xexpr.ss
index 0932a05f78..6d512b30f4 100644
--- a/collects/xml/private/xexpr.ss
+++ b/collects/xml/private/xexpr.ss
@@ -148,7 +148,6 @@
              (null? (cddr b))))
 
       ;; xml->xexpr : Content -> Xexpr
-      ;; The contract is loosely enforced.
       (define (xml->xexpr x)
         (let* ([non-dropping-combine
                 (lambda (atts body)
@@ -170,8 +169,7 @@
               [(entity? x) (entity-text x)]
               [(or (comment? x) (pi? x) (cdata? x)) x]
               [(document? x) (error 'xml->xexpr "Expected content, given ~e\nUse document-element to extract the content." x)]
-              [else ;(error 'xml->xexpr "Expected content, given ~e" x)
-               x]))))
+              [else (error 'xml->xexpr "Expected content, given ~e" x)]))))
 
       ;; attribute->srep : Attribute -> Attribute-srep
       (define (attribute->srep a)