Use wide string to test re-reading of document.

diff --git a/v7/src/xml/test-parser.scm b/v7/src/xml/test-parser.scm
index 7ae6d52d3de1dda220eb967c29d8a68e3179c7e1..326fc6a61699f37015223235455e6070ea3e1229 100644 (file)
--- a/v7/src/xml/test-parser.scm
+++ b/v7/src/xml/test-parser.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: test-parser.scm,v 1.10 2003/03/01 16:52:10 cph Exp $
+$Id: test-parser.scm,v 1.11 2004/02/23 20:52:49 cph Exp $
 
-Copyright 2001 Massachusetts Institute of Technology
+Copyright 2001,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -50,7 +50,7 @@ USA.
                 ((condition? v)
                  (write-condition-report v (current-output-port)))
                 (else
-                 (let ((s (ignore-errors (lambda () (xml->string v)))))
+                 (let ((s (ignore-errors (lambda () (xml->wide-string v)))))
                    (if (condition? s)
                        (begin
                          (write-string "Can't write: ")