r8226: update to new dtd writing functions

[hyperobject.git] / views.lisp

diff --git a/views.lisp b/views.lisp
index d22f6232a9fc0acb2c7ea20dfa36bc52d3a416e8..7a464d9df02ad3388fa492536c029c945e70fe0e 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -218,7 +218,7 @@
                       (funcall formatter slot-data)
                       slot-data)))
     (if cdata
-       (write-xml-cdata fmt-data strm)
+       (write-cdata fmt-data strm)
        (write-simple fmt-data strm))))
 
 (defun ppfc-html (title name type formatter cdata print-func)