diff --git a/sugar/xml.rkt b/sugar/xml.rkt
index 4c2b46e..0dbd260 100644
--- a/sugar/xml.rkt
+++ b/sugar/xml.rkt
@@ -1,12 +1,12 @@
 #lang racket/base
-(require xml racket/port racket/contract)
+(require xml racket/port racket/contract "define.rkt")
 (provide (all-defined-out))
 
-(define/contract (xml-string->xexprs str)
+(define+provide+safe (xml-string->xexprs str)
   (string? . -> . (values xexpr? xexpr?))
   (define xml-doc (with-input-from-string str (λ _ (permissive-xexprs #t) (read-xml))))
   (values (xml->xexpr (document-prolog xml-doc)) (xml->xexpr (document-element xml-doc))))
 
-(define/contract (xexprs->xml-string prolog-xexpr root-xexpr)
+(define+provide+safe (xexprs->xml-string prolog-xexpr root-xexpr)
   (xexpr? xexpr? . -> . string?)
   (with-output-to-string (λ _ (write-xml (document (xexpr->xml prolog-xexpr) (xexpr->xml root-xexpr) null)))))
\ No newline at end of file