From 752e04b5469566f35fa46da849642138c1d1c8f3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 3 Aug 2003 06:20:40 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/xml/xml-struct.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/xml/xml-struct.scm b/v7/src/xml/xml-struct.scm
index b6e654501..df37b02bc 100644
--- a/v7/src/xml/xml-struct.scm
+++ b/v7/src/xml/xml-struct.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml-struct.scm,v 1.20 2003/08/03 05:55:54 cph Exp $
+$Id: xml-struct.scm,v 1.21 2003/08/03 06:20:40 cph Exp $
 
 Copyright 2001,2002,2003 Massachusetts Institute of Technology
 
@@ -40,7 +40,7 @@ USA.
       (write (combo-name-simple name) port))))
 
 (define-record-type <universal-name>
-    (make-universal-name uri local)
+    (make-universal-name uri local combos)
     universal-name?
   (uri universal-name-uri)
   (local universal-name-local)
-- 
2.25.1