diff --git a/m1r4/dsv/bomshelf b/m1r4/dsv/bomshelf
index f06c348..6b18ae6 100755
--- a/m1r4/dsv/bomshelf
+++ b/m1r4/dsv/bomshelf
@@ -81,8 +81,8 @@ while (<F>) {
 		if (defined $p) {
 			$cr{$p} = $';
 			for $c (&csv($')) {
-				warn "\"$c\" (supplement) used for $r{$c} ".
-				    "and $p" if defined $r{$c};
+				warn "$p overrides $r{$c} for $c"
+				    if defined $r{$c};
 				$r{$c} = $p;
 			}
 			next;