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 ]
      )