X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=blobdiff_plain;f=views.lisp;h=7a464d9df02ad3388fa492536c029c945e70fe0e;hp=820556800fce09101bc6ee51165f71d41a41f10d;hb=84f0745468d57540f972b31c230f1ccae2bc1768;hpb=937d203b961e0d12a3188568b1cfbe8fe2c3ec11

diff --git a/views.lisp b/views.lisp
index 8205568..7a464d9 100644
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: views.lisp,v 1.62 2003/07/19 20:32:48 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -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)