cl-sql bug?

Well I remember having send this message more than once. So here we go
again. If I want to use cl-sql the OO interface e.g to get a list of
objects from a table like this:
downloader
id, person_name, email and this

def-view-classes
(def-view-class person (unique-id-mixin polymorph-db-object)
   ((person-name :type string
                 :column person_name
 	 :accessor person-name
 	 :initarg :person-name)))

(def-view-class downloader (person)
  ((email :type string
          :accessor email
          :initarg :email)))


which in the end will give an object with three slots I have to modfiy
fddl.lisp like this:
(defun database-identifier (name database)
  (sql-escape (etypecase name
		;; honor case of strings
                (string name
			#+nil (convert-to-db-default-case name database))
                (sql-ident (sql-output name database))
 ;; added !               (sql (sql-output name database))
                (symbol (sql-output name database)))))

Otherwise I got an error. 

The query I run against the PostgreSQL databas is as simple as
(select 'downloader)

I do not know why noone else has seen this problem before. 

Friedrich