From 6316953dc1ccc06b05b4ff6cf47f1795b18e6b77 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 7 Dec 2002 04:57:05 +0000
Subject: [PATCH] Fix harmless typo.

---
 v7/src/xml/xml-output.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/xml/xml-output.scm b/v7/src/xml/xml-output.scm
index 10838b3e9..656e11736 100644
--- a/v7/src/xml/xml-output.scm
+++ b/v7/src/xml/xml-output.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xml-output.scm,v 1.4 2002/12/07 04:47:50 cph Exp $
+;;; $Id: xml-output.scm,v 1.5 2002/12/07 04:57:05 cph Exp $
 ;;;
 ;;; Copyright (c) 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -76,9 +76,9 @@
 	  (write-string ">" port))
 	(write-string " />" port))))
 
-(define-method write-xml ((pi xml-comment-rtd) port)
+(define-method write-xml ((comment xml-comment-rtd) port)
   (write-string "<!--" port)
-  (write-string (xml-comment-text pi) port)
+  (write-string (xml-comment-text comment) port)
   (write-string "-->" port))
 
 (define-method write-xml ((pi xml-processing-instructions-rtd) port)
-- 
2.25.1