diff --git a/lpadmin/aix-lib.pl b/lpadmin/aix-lib.pl
index 931b017fb..0aa2f48a4 100644
--- a/lpadmin/aix-lib.pl
+++ b/lpadmin/aix-lib.pl
@@ -211,7 +211,7 @@ sub delete_printer
 {
 # Find old entry
 local @qc = &get_qconfig();
-local ($real) = grep { $_->{'name'} eq $_[0]->{'name'} } @qc;
+local ($real) = grep { $_->{'name'} eq $_[0] } @qc;
 local ($device) = grep { $_->{'name'} eq $real->{'values'}->{'device'} &&
 			    $_->{'line'} > $real->{'line'} } @qc;