70a71,73
> # Message for commit.
> my $opt_ci_msg;
> 
88c91,92
<            'glob_ignores=s'          => \$opt_glob_ignores)
---
>            'glob_ignores=s'          => \$opt_glob_ignores,
>            'msg=s'                   => \$opt_ci_msg)
461c465
<       my $message = "Create directories to load project into.\n\n";
---
>       my $message = "";
463c467,476
<       foreach my $dir (@dirs_to_create)
---
>       if (defined $opt_ci_msg)
>       {
>         # Use the commit message given by the user, if any.
>         $message = $opt_ci_msg . "\n\n";
>       }
>       else
>       {
>         $message = "Create directories to load project into.\n\n";
> 
>         foreach my $dir (@dirs_to_create)
474,475c487,488
<       $message = wrap('', '  ', $message);
< 
---
>         $message = wrap('', '  ', $message);
>       }
1257c1270,1279
<     my $message = wrap('', '', "Load $load_dir into $repos_load_abs_path.\n");
---
>     my $message = "";
>     if (defined $opt_ci_msg)
>     {
>       # Use the commit message given by the user, if any.
>       $message = $opt_ci_msg . "\n\n";
>     }
>     else
>     {
>       $message = wrap('', '', "Load $load_dir into $repos_load_abs_path.\n");
>     }
1287,1290c1309,1322
<         $message     = wrap("",
<                             "",
<                             "Tag $repos_load_abs_path as " .
<                             "$repos_tag_abs_path.\n");
---
>         my $message = "";
> 
>         if (defined $opt_ci_msg)
>         {
>           # Use the commit message given by the user, if any.
>           $message = $opt_ci_msg . "\n\n";
>         }
>         else
>         {
>           $message     = wrap("",
>                               "",
>                               "Tag $repos_load_abs_path as " .
>                               "$repos_tag_abs_path.\n");
>         }
1338c1370,1371
<       "                 global-ignores config option)\n";
---
>       "                 global-ignores config option)\n",
>       "  -m \"msg\"       use this message at check-in time\n";
1682,1695c1715,1736
<   my $message = "To prepare to load $load_dir into $repos_load_abs_path, " .
<                 "perform $number_renames rename" .
<                 ($number_renames > 1 ? "s" : "") . ".\n";
< 
<   # Text::Wrap::wrap appears to replace multiple consecutive \n's with
<   # one \n, so wrap the text and then append the second \n.
<   $message  = wrap("", "", $message) . "\n";
<   while (@$renamed_filenames)
<     {
<       my $from  = "$repos_load_abs_path/" . shift @$renamed_filenames;
<       my $to    = "$repos_load_abs_path/" . shift @$renamed_filenames;
<       $message .= wrap("", "  ", "* $to: Renamed from $from.\n");
<     }
< 
---
>   my $message = "";
>   if (defined $opt_ci_msg)
>   {
>     # Use the commit message given by the user, if any.
>     $message = $opt_ci_msg . "\n\n";
>   }
>   else
>   {
>     $message = "To prepare to load $load_dir into $repos_load_abs_path, " .
>                  "perform $number_renames rename" .
>                  ($number_renames > 1 ? "s" : "") . ".\n";
> 
>     # Text::Wrap::wrap appears to replace multiple consecutive \n's with
>     # one \n, so wrap the text and then append the second \n.
>     $message  = wrap("", "", $message) . "\n";
>     while (@$renamed_filenames)
>       {
>         my $from  = "$repos_load_abs_path/" . shift @$renamed_filenames;
>         my $to    = "$repos_load_abs_path/" . shift @$renamed_filenames;
>         $message .= wrap("", "  ", "* $to: Renamed from $from.\n");
>       }
>   }
