Fix typo.

diff --git a/v7/src/xml/xhtml.scm b/v7/src/xml/xhtml.scm
index e5b16da60f4e2546d636c3c6ba66b7036a758d8b..2b7a308d44614d6964c20075b8bb2c157f01f7a7 100644 (file)
--- a/v7/src/xml/xhtml.scm
+++ b/v7/src/xml/xhtml.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml.scm,v 1.14 2004/11/17 05:48:35 cph Exp $
+$Id: xhtml.scm,v 1.15 2004/11/17 05:59:13 cph Exp $
 
 Copyright 2002,2003,2004 Massachusetts Institute of Technology
 
@@ -257,7 +257,7 @@ USA.
 
 (define (html:style-attr . keyword-list)
   (guarantee-keyword-list keyword-list 'HTML:STYLE-ATTR)
-  (if (pair? bindings)
+  (if (pair? keyword-list)
       (let loop ((bindings keyword-list))
        (string-append (symbol-name (car bindings))
                       ": "