diff --git a/perl/Gnome-Tomboy/NOTES b/perl/Gnome-Tomboy/NOTES
index 275cd778634391c937affaa8aef53f75796a8c09..1fbeca3d17896fae2c138b298a249176ce554433 100644
--- a/perl/Gnome-Tomboy/NOTES
+++ b/perl/Gnome-Tomboy/NOTES
@@ -1,5 +1,13 @@
+h2. File Format considerations
+
 dead links are marked as
 
   <link:broken>text</link:broken>
 
+h2. Installation
+
+h3. Ubuntu prerequisites
 
+<pre>
+apt-get install libxml-parser-perl libjson-perl
+</pre>
diff --git a/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm b/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
index bcefc8c289ab4f11dac1385ef7536eb9f548c3e0..4762ccdd0134fad490f4fb92e4a8dd74396731af 100644
--- a/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
+++ b/perl/Gnome-Tomboy/lib/Tomboy/Directory.pm
@@ -77,6 +77,8 @@ sub scan_dir
   my $quick= shift; # 0/undef: full scan
                     # 1: quick scan
 
+print __LINE__, " scan_dir: quick=[$quick]\n";
+
   $dir=~ s#/+$##;
   unless (opendir (DIR, $dir))
   {
@@ -90,7 +92,7 @@ sub scan_dir
     print "scan_dir: quick=[$quick]\n";
     # print "rows: ", Dumper ($rows);
     %fnm= map { $_->{'fnm'} => $_ } @$rows;
-    # print "fnm: ", Dumper (\%fnm);
+    # print __LINE__, " fnm: ", Dumper (\%fnm);
   }
   else
   {
@@ -117,6 +119,7 @@ sub scan_dir
     if ($quick)
     {
       my $x_rec= $fnm{$fp};
+      # print __LINE__, " fp=[$fp]\n";
       delete ($fnm{$fp});
 
       if (defined ($x_rec))
@@ -166,6 +169,7 @@ sub scan_dir
   closedir (DIR);
 
 # TODO: list dropped files
+  print __LINE__, " fnm: ", Dumper (\%fnm);
   foreach my $fp (keys %fnm)
   {
     print "dropped: ", $fp, "\n";
diff --git a/perl/Gnome-Tomboy/lib/Tomboy/TOC.pm b/perl/Gnome-Tomboy/lib/Tomboy/TOC.pm
index cdf70781f94d56a147c92dce1301a975fcff0a81..99d0c90e071f0ef3a580c5d4ed7e0696528fa592 100644
--- a/perl/Gnome-Tomboy/lib/Tomboy/TOC.pm
+++ b/perl/Gnome-Tomboy/lib/Tomboy/TOC.pm
@@ -51,6 +51,7 @@ print "find: where=[$where] pattern=[$pattern]\n";
   @res;
 }
 
+# Note: there is also a Tomboy::Directoy::scan_dir()
 sub scan_dir
 {
   my $self= shift;
diff --git a/perl/Gnome-Tomboy/tom b/perl/Gnome-Tomboy/tom
index fac21fdb653d5bcf79a6a777b5ea6a67cb0a3b18..cdf03c761fa7aca94c36464337ae56b0b6da0d54 100755
--- a/perl/Gnome-Tomboy/tom
+++ b/perl/Gnome-Tomboy/tom
@@ -14,6 +14,7 @@ do stuff with Tomboy files
 
 =head1 OPTIONS
 
+  --note-path <dir>
   -d <dir> ... full path of Tomboy notes directory
   -e ... edit note (used with find)
 
@@ -72,7 +73,12 @@ while (my $arg= shift (@ARGV))
   {
     my ($op, $val)= split ('=', $1);
     print "op=[$op] val=[$val]\n";
-    usage();
+
+    if ($op eq 'note-path') { $note_dir= $val || shift(@ARGV); $note_dir_changed= 1; }
+    else
+    {
+      usage();
+    }
   }
   elsif ($arg =~ /^-(.+)/)
   {