--- loncom/lonnet/perl/lonnet.pm	2019/04/24 01:44:46	1.1407
+++ loncom/lonnet/perl/lonnet.pm	2019/04/26 20:22:27	1.1408
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1407 2019/04/24 01:44:46 raeburn Exp $
+# $Id: lonnet.pm,v 1.1408 2019/04/26 20:22:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1252,6 +1252,9 @@ sub changepass {
     } elsif ($answer =~ "invalid_client") {
         &logthis("$server refused to change $uname in $udom password because ".
                  "it was a reset by e-mail originating from an invalid server.");
+    } elsif ($answer =~ "^prioruse") {
+       &logthis("$server refused to change $uname in $udom password because ".
+                "the password had been used before");
     }
     return $answer;
 }