diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl
index 6416343f82..bebade867d 100755
--- a/tools/modborrowers.pl
+++ b/tools/modborrowers.pl
@@ -146,7 +146,7 @@ if ( $op eq 'show' ) {
     # Construct drop-down list values
     my $branches = GetBranchesLoop;
     my @branches_option;
-    push @branches_option, { value => $_->{value}, lib => $_->{branchname} } for @$branches;
+    push @branches_option, { value => $_->{branchcode}, lib => $_->{branchname} } for @$branches;
     unshift @branches_option, { value => "", lib => "" };
     my $categories = GetBorrowercategoryList;
     my @categories_option;