diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl
index 65e6f3db16..14ec05e753 100755
--- a/opac/opac-memberentry.pl
+++ b/opac/opac-memberentry.pl
@@ -306,6 +306,7 @@ if ( $op eq 'cud-create' ) {
 
     my %borrower = ParseCgiForBorrower($cgi);
     $borrower{borrowernumber} = $borrowernumber;
+    $borrower{categorycode}   = $borrower->{categorycode};
 
     my @empty_mandatory_fields = grep { $_ ne 'password' }    # password is not required when editing personal details
         ( CheckMandatoryFields( \%borrower, $op ), CheckMandatoryAttributes( \%borrower, $attributes ) );