diff --git a/perl/Gnome-Tomboy/tom b/perl/Gnome-Tomboy/tom
index 8a57ae049acdd823ff3d9ebe4631f0210db3a5cb..038456af9fa8004ac40ac9dce21bd7982af090d6 100755
--- a/perl/Gnome-Tomboy/tom
+++ b/perl/Gnome-Tomboy/tom
@@ -18,6 +18,10 @@ do stuff with Tomboy files
 
 =head1 OP-CODES
 
+=head2 toc
+
+Refresh table of contents file.
+
 =head2 show
 
 =head2 diff
@@ -63,10 +67,10 @@ while (my $arg= shift (@ARGV))
 
 my $op_code= shift (@PAR) unless (defined ($op_code));
 
-
    if ($op_code eq 'help') { usage(); }
 elsif ($op_code eq 'dump') { dump_note ($_) foreach (@PAR); }
 elsif ($op_code eq 'toc')  { tom_toc(); }
+elsif ($op_code eq 'csv')  { tom_csv(); }
 elsif ($op_code eq 'find') { find_note(@PAR); }
 elsif ($op_code eq 'diff')
 {
@@ -129,6 +133,14 @@ sub find_note
   }
 }
 
+sub tom_csv
+{
+  setup_toc();
+
+  # TODO: show CSV file itself
+  system (qw(csv --TAB --UTF8), $toc_file);
+}
+
 sub dump_note
 {
   my $note_fnm= shift;