method display_dir ?(force=behav#needs_cvs_status) dir_opt =
      dir <- dir_opt ;
      self#update force