anchor.diff:    (make_Content_Item_from_Element 
      (make-element name datum sort table (+ indent 2))))
   
  -(defun make-whitespace (n)
  -  (let ((chars nil))
  -    (dotimes (i n) (push 32 chars))
  -    chars))
  -
   (defun make-element (name datum sort table indent)
     (let* ((pattern (chase sort table))
   	 (name (unicode::ustring name))
   	 (sort-attribute  (make_GenericAttribute '(32) (unicode::ustring "type") '() '() 
   						 (make_QuotedText '34
  -								  (pp-sort-for-xml sort))))
  +								  (pp-sort-for-xml-attribute sort))))
   	 (attributes 
   	  (list sort-attribute)))
       (multiple-value-bind (items text)
  
positive.code: 		   (format nil "[COMPOUND SORT: ~S]" sort)))))
      (unicode::ustring (aux sort))))
  
  
  (defun make-content-items (datum sort pattern table indent)
    ;; (format t "~& From: ~S~%" sort)
    ;;  (format t "~&   to: ~S~%" pattern)
    ;;  (format t "~&datum: ~S~%" datum)
    ;;  (format t "~&---------------------------~%")
    (let ((key  (car pattern))
  	(body (cdr pattern)))
      (case key
  
negative.code: 			     items)
  	       (make_ETag name null-whitespace)))))))
  
  (defun pp-sort-for-xml-attribute (sort)
    (labels ((aux (sort)
  		(case (car sort)
  		  (:|Base|
  