--- ttree	2005-05-09 16:40:09.000000000 +0600
+++ ttree_DEP_DEBUG_fix	2005-05-09 16:29:57.000000000 +0600
@@ -185,7 +185,7 @@
         print "Dependencies:\n";
         foreach my $key ('*', grep { !/\*/ } keys %$depends) {
             printf("    %-16s %s\n", $key, 
-                   join(', ', @{ $depends->{ $key } }));
+                   join(', ', @{ $depends->{ $key } })) if defined $depends->{ $key };
         }
     }
     print "\n";