diff --git a/1-base/lace/source/events/mixin/private/lace-event_emitter.adb b/1-base/lace/source/events/mixin/private/lace-event_emitter.adb
index bb862e9..6096fe7 100644
--- a/1-base/lace/source/events/mixin/private/lace-event_emitter.adb
+++ b/1-base/lace/source/events/mixin/private/lace-event_emitter.adb
@@ -323,11 +323,11 @@ is
 
 
 
-   procedure destruct (Self : in out Item)
+   procedure destroy (Self : in out Item)
    is
    begin
        Self.Delegator.stop;
-   end destruct;
+   end destroy;
 
 
 
diff --git a/1-base/lace/source/events/mixin/private/lace-event_emitter.ads b/1-base/lace/source/events/mixin/private/lace-event_emitter.ads
index f8a4f4b..a3a9f13 100644
--- a/1-base/lace/source/events/mixin/private/lace-event_emitter.ads
+++ b/1-base/lace/source/events/mixin/private/lace-event_emitter.ads
@@ -16,7 +16,7 @@ is
 
 
    procedure define   (Self : in out Item;   Subject   : in lace.Subject.view);
-   procedure destruct (Self : in out Item);
+   procedure destroy (Self : in out Item);
 
    procedure add      (Self : in out Item;   new_Event : in lace.Event.item'Class);
 
diff --git a/1-base/lace/source/events/mixin/private/lace-event_sender.adb b/1-base/lace/source/events/mixin/private/lace-event_sender.adb
index 20d9cee..4687803 100644
--- a/1-base/lace/source/events/mixin/private/lace-event_sender.adb
+++ b/1-base/lace/source/events/mixin/private/lace-event_sender.adb
@@ -124,11 +124,11 @@ is
    task body send_Delegator
    is
       the_subject_Name :         string_Holder;
-
       the_Senders      : aliased safe_Senders;
 
       the_Pairs        :         safe_Pairs_view;
       new_Pairs        :         pair_Vector;
+
       Done             :         Boolean     := False;
 
 
@@ -303,11 +303,11 @@ is
 
 
 
-   procedure destruct (Self : in out Item)
+   procedure destroy (Self : in out Item)
    is
    begin
        Self.Delegator.stop;
-   end destruct;
+   end destroy;
 
 
 
diff --git a/1-base/lace/source/events/mixin/private/lace-event_sender.ads b/1-base/lace/source/events/mixin/private/lace-event_sender.ads
index c62d663..12cf076 100644
--- a/1-base/lace/source/events/mixin/private/lace-event_sender.ads
+++ b/1-base/lace/source/events/mixin/private/lace-event_sender.ads
@@ -17,7 +17,7 @@ is
 
 
    procedure define   (Self : in out Item;   Subject   : in lace.Subject.view);
-   procedure destruct (Self : in out Item);
+   procedure destroy (Self : in out Item);
 
    procedure add      (Self : in out Item;   new_Event    : in lace.Event.item'Class;
                                              for_Observer : in lace.Observer.view;