diff --git a/collects/unstable/scribblings/web.scrbl b/collects/unstable/scribblings/web.scrbl
index c0b985723a..35fd42546d 100644
--- a/collects/unstable/scribblings/web.scrbl
+++ b/collects/unstable/scribblings/web.scrbl
@@ -1,5 +1,5 @@
 #lang scribble/manual
-@(require scribble/eval "utils.rkt" (for-label racket (except-in xml write-xexpr) unstable/web))
+@(require scribble/eval "utils.rkt" (for-label racket xml unstable/web))
 
 @title{XML and CSS}
 
@@ -37,15 +37,10 @@ This flat contract corresponds to @scheme[xexpr?].  It is reprovided from
 @scheme[xexpr/c], this module provides its own definition.
 }
 
-@deftogether[(
 @defproc[(write-css [css css/c] [out output-port? (current-output-port)])
-         void?]
-@defproc[(write-xexpr [xexpr xexpr/c] [out output-port? (current-output-port)])
-         void?]
-)]{
-These functions write CSS-expressions and
-X-expressions, respectively, to output ports, by their
-canonical text representations.
+         void?]{
+This function writes CSS-expressions to output ports by its
+canonical text representation.
 }
 
 @deftogether[(
diff --git a/collects/unstable/web.rkt b/collects/unstable/web.rkt
index 5744668793..001a962337 100644
--- a/collects/unstable/web.rkt
+++ b/collects/unstable/web.rkt
@@ -67,9 +67,6 @@
 ;; Writes a property value to a Cascading Style Sheet.
 (define write-prop-val write-text)
 
-(provide/contract
- [write-xexpr (->* [xexpr/c] [output-port?] void?)])
-
 (provide/contract
  [create-webpage (string? xexpr/c . -> . void?)]
  [create-stylesheet (string? css/c . -> . void?)])