diff --git a/scripts/prt-auf b/scripts/prt-auf
index 053862d..1362624 100755
--- a/scripts/prt-auf
+++ b/scripts/prt-auf
@@ -620,6 +620,9 @@ sub list_ports {
                 map { $not_orphans{$_} = 1 } split(/[ ,]+/, $SOFTDEPS{$port});
             }
         }
+	foreach my $al (keys %ALIASES) {
+	    $not_orphans{$al} = 1 if (($not_orphans{$ALIASES{$al}}) and ($not_orphans{$ALIASES{$al}} == 1));
+	}
         @found = grep { $not_orphans{$_} == 0 } keys %V_INST;
     } elsif (($subset eq "dependent") and ($odepends{recursive}==0)) {
         @found = grep { " $DEPENDS{$_} " =~ / $sseed / } @searchspace;