New procedure XML->WIDE-STRING.

diff --git a/v7/src/xml/xml.pkg b/v7/src/xml/xml.pkg
index e46327b5e431341a0f63acfd8b8bacabae8bf6fe..ee21cefd93e059e5b8c232daa966f56954216e31 100644 (file)
--- a/v7/src/xml/xml.pkg
+++ b/v7/src/xml/xml.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml.pkg,v 1.17 2003/03/01 16:52:30 cph Exp $
+$Id: xml.pkg,v 1.18 2003/03/05 01:15:13 cph Exp $
 
 Copyright 2001,2002,2003 Massachusetts Institute of Technology
 
@@ -176,4 +176,5 @@ USA.
   (export ()
          write-xml
          write-xml-file
-         xml->string))
\ No newline at end of file
+         xml->string
+         xml->wide-string))
\ No newline at end of file