method display_strings ci =
(Some (color_string_of_status ci.cvs_status),
[ Filename.basename ci.cvs_file ;
string_of_status ci.cvs_status ;
ci.cvs_work_rev ;
ci.cvs_rep_rev ;
ci.cvs_date_string ]
)