diff --git a/scripts/prt-auf b/scripts/prt-auf
index 338d040..82c8d41 100755
--- a/scripts/prt-auf
+++ b/scripts/prt-auf
@@ -334,8 +334,8 @@ sub printf_ports {
       foreach my $pp (@targets) {
         $p = (split /\//, $pp)[-1];
 	@pstats = get_pkgfile_fields($pp,"all");
-	$pstats[12] = (grep /^$p$/, keys %V_INST) ? "yes" : "no";
-	$pstats[13] = (grep /^$p$/, @LOCKED) ? "yes" : "no";
+	$pstats[12] = (grep /^$p$/, @LOCKED) ? "yes" : "no";
+	$pstats[13] = (grep /^$p$/, keys %V_INST) ? "yes" : "no";
 	printf STDOUT $outputf, @pstats[@pos];
       }
   }