diff --git a/Modules/mip_parties.pck b/Modules/mip_parties.pck
index ed73e7f..2677672 100644
--- a/Modules/mip_parties.pck
+++ b/Modules/mip_parties.pck
@@ -980,7 +980,8 @@ CREATE OR REPLACE PACKAGE BODY mip_parties AS
     UPDATE party_address_roles paddro
        SET paddro.end_date = SYSDATE
      WHERE paddro.paddr_prty_id = p_prty_id
-       AND paddro.rt_code = p_paddr_type;
+       AND paddro.rt_code = p_paddr_type
+       AND NOT paddro.paddr_addr_code = p_addr_code;
        
   END expire_old_addresses;
   --