Do not ignore root directory

diff --git a/zk b/zk
index 04b0829d4e46dfae2df74db66f48dde8a421429b..5179aa3b12e5abf80403c267065792a8032caec4 100755 (executable)
--- a/zk
+++ b/zk
@@ -160,7 +160,7 @@ my %cats;
     use POSIX qw(strftime);
     sub wanted {
         my $fn = $_;
-        return if $fn =~ /^\./;
+        return if ($fn =~ /^\./) and ($fn ne ".");
         my $pth = $File::Find::name;
         $pth =~ s/^\.\/?//;
         if (-d $fn) {