diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp
index 2d25b0a..91d045c 100644
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@@ -3027,7 +3027,13 @@
         (dtd *ctx*)))))
 
 (defun parse-rod (string handler &rest args)
-  (apply #'parse-xstream (string->xstream string) handler args))
+  (let ((xstream (string->xstream string)))
+    (setf (xstream-name xstream)
+	  (make-stream-name
+	   :entity-name "main document"
+	   :entity-kind :main
+	   :uri nil))
+    (apply #'parse-xstream xstream handler args)))
 
 (defun string->xstream (string)
   (make-rod-xstream (string-rod string)))