diff --git a/4-high/gel/source/forge/gel-forge.ads b/4-high/gel/source/forge/gel-forge.ads
index e0d0362..b6e5ad8 100644
--- a/4-high/gel/source/forge/gel-forge.ads
+++ b/4-high/gel/source/forge/gel-forge.ads
@@ -68,20 +68,24 @@ is
                                   user_Data   : in any_user_Data_view := null) return gel.Sprite.view;
 
    function new_polygon_Sprite   (in_World    : in gel.World.view;
+                                  Name        : in String;
                                   Site        : in math.Vector_3      := math.Origin_3D;
                                   Mass        : in math.Real          := 1.0;
                                   Friction    : in math.Real          := 0.5;
                                   Bounce      : in math.Real          := 0.5;
+                                  is_Tangible : in Boolean            := True;
                                   Vertices    : in Geometry_2d.Sites;
                                   Color       : in openGL.Color       := opengl.Palette.White;
                                   Texture     : in openGL.asset_Name  := openGL.null_Asset;
                                   user_Data   : in any_user_Data_view := null) return gel.Sprite.view;
 
    function new_rectangle_Sprite (in_World    : in gel.World.view;
+                                  Name        : in String;
                                   Site        : in math.Vector_3      := math.Origin_3D;
                                   Mass        : in math.Real          := 1.0;
                                   Friction    : in math.Real          := 0.5;
                                   Bounce      : in math.Real          := 0.5;
+                                  is_Tangible : in Boolean            := True;
                                   Width,
                                   Height      : in math.Real;
                                   Color       : in openGL.Color       := opengl.Palette.White;