;;BookDate
(if BookDate::params
 	(BookTitles::Do "Date" "date" BookDate::params #f)
        (BookTitles::Do "Date" "date" (strftime "%Y" (localtime (current-time)))  "Give date for score or blank out to delete: "))
