anchor.diff:               :initform nil
                :accessor suggests
                :documentation "List of requirements the library suggests"
  -             :type list)))
  +             :type list)
  +   (creation-time :initarg :creation-time
  +		  :initform (now)
  +		  :accessor creation-time))))
   
   (defmethod print-object ((library-version library-version) stream)
     (print-unreadable-object (library-version stream :type t :identity t)
  
positive.code: 						:dependencies (cldm::dependencies cldm-library-version)
  						:repositories (cldm::repositories cldm-library-version)
  						:library stored-library)))
  	    (save-library stored-library)
  	    (save-library-version library-version)))
  	;; else, create the library
  	(let ((library (make-instance 'library 
  				      :name (cldm::library-name cldm-library)
  
negative.code:     (add-element "licence" (licence library) doc)
      (add-element "author" (author library) doc)
      (add-element "maintainer" (maintainer library) doc)
      (add-element "update-time" (now) doc)
      (if (doc library)
  	(db.save "libraries" doc)
  	(progn
  