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