diff --git a/4-high/gel/source/gel-events.ads b/4-high/gel/source/gel-events.ads
index c405507..5bc2630 100644
--- a/4-high/gel/source/gel-events.ads
+++ b/4-high/gel/source/gel-events.ads
@@ -48,19 +48,6 @@ is
       end record;
 
 
-   --  type new_sprite_Event is new lace.Event.item with
-   --     record
-   --        Pair : gel.remote.World.sprite_model_Pair;
-   --     end record;
-
-
-   --  type new_sprite_added_to_world_Event is new lace.Event.item with
-   --     record
-   --        Sprite_Id : gel.sprite_Id;
-   --        World_Id  : gel. world_Id;
-   --     end record;
-
-
    type new_sprite_Event is new lace.Event.item with
       record
          Pair : gel.remote.World.sprite_model_Pair;
diff --git a/4-high/gel/source/remote/gel-remote-world.ads b/4-high/gel/source/remote/gel-remote-world.ads
index 4d50300..ffa6638 100644
--- a/4-high/gel/source/remote/gel-remote-world.ads
+++ b/4-high/gel/source/remote/gel-remote-world.ads
@@ -20,13 +20,13 @@ package gel.remote.World
 --
 is
    pragma remote_Types;
-   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+   pragma suppress (Container_Checks);     -- Suppress expensive tamper checks.
 
    type Item is  limited interface
              and lace.Subject .item
              and lace.Observer.item;
 
-   type View is access all Item'Class with asynchronous;
+   type View is access all Item'Class with Asynchronous;