diff --git a/lib/kadm5/check-cracklib.pl b/lib/kadm5/check-cracklib.pl
index 58e2a640c..e2517deb9 100644
--- a/lib/kadm5/check-cracklib.pl
+++ b/lib/kadm5/check-cracklib.pl
@@ -87,7 +87,7 @@ sub badpassword
     exit 0
 }
 
-while (<>) {
+while (<STDIN>) {
     last if /^end$/;
     if (!/^([^:]+): (.+)$/) {
 	die "key value pair not correct: $_";