diff --git a/lib/Simba/DA.pm b/lib/Simba/DA.pm
index f608258..81c9332 100644
--- a/lib/Simba/DA.pm
+++ b/lib/Simba/DA.pm
@@ -105,10 +105,13 @@ sub list {
                         $self->log(10, "list: in $File::Find::dir");
                         if ($self->{prune}{$File::Find::dir}) {
                             return ();
-                        } else {
-                            # not sure if sorting is useful
-                            return sort @_;
                         }
+                        my $last_component = $File::Find::dir =~ s{.*/}{}r;
+                        if ($self->{prune}{$last_component}) {
+                            return ();
+                        }
+                        # not sure if sorting is useful
+                        return sort @_;
                     },
 	    wanted
                 => sub {