diff --git a/crathighlighter/cratHighlighterSubpages.pl b/crathighlighter/cratHighlighterSubpages.pl
index 90b2813..ffa843a 100755
--- a/crathighlighter/cratHighlighterSubpages.pl
+++ b/crathighlighter/cratHighlighterSubpages.pl
@@ -209,7 +209,7 @@ sub mwLogin {
 			     on_error => \&dieNice,
 			     use_http_get => '1' # use GET where appropriate
 			    });
-  $mw->{ua}->agent("$PROGRAM_NAME (".$mw->{ua}->agent.')');
+  $mw->{ua}->agent('cratHighlighterSubpages.pl ('.$mw->{ua}->agent.')');
   $mw->login({lgname => $username, lgpassword => $password});
 
   return $mw;