Fix thinko in call to MAKE-XML-!ENTITY.

diff --git a/v7/src/xml/xhtml-entities.scm b/v7/src/xml/xhtml-entities.scm
index 34c58d26802cdc7b6ececa827d33d63879c71272..8a9060fac6cc25b8819c27e2300cf97f9cc048ce 100644 (file)
--- a/v7/src/xml/xhtml-entities.scm
+++ b/v7/src/xml/xhtml-entities.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml-entities.scm,v 1.1 2004/07/24 03:45:39 cph Exp $
+$Id: xhtml-entities.scm,v 1.2 2004/07/24 04:03:09 cph Exp $
 
 Copyright 2004 Massachusetts Institute of Technology
 
@@ -279,7 +279,7 @@ USA.
     ))
 
 (define html-entities
-  (map (lambda (b) (apply make-xml-!entity b))
+  (map (lambda (b) (make-xml-!entity (car b) (cdr b)))
        html-entity-alist))
 
 (define html-char->name-map