Automated commit for debian release 1.6.6-1

[lml2.git] / htmlgen.lisp

diff --git a/htmlgen.lisp b/htmlgen.lisp
index 4fa517e3ad0179cb579ad8a04265341a713d97c2..8e7563c2d27b271696e198e3cce3af216b0fed1b 100644 (file)
--- a/htmlgen.lisp
+++ b/htmlgen.lisp
@@ -360,7 +360,7 @@
        (when (< start i)
          (write-sequence string stream :start start :end i)))
 
-    (let* ((ch (schar string i))
+    (let* ((ch (char string i))
            (cvt (case ch
                   (#\< "&lt;")
                   (#\> "&gt;")