diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb b/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb
index f76df9b..d200072 100644
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb
@@ -187,7 +187,7 @@ is
       procedure enable_Textures (Self : in out Item)
       is
       begin
-         ada.Text_IO.put_Line (Self.Model'Image);
+         --  ada.Text_IO.put_Line (Self.Model'Image);
 
          texturing.enable (for_Model   => Self.Model.all'Access,
                            Uniforms    => texture_Uniforms,
diff --git a/3-mid/opengl/source/lean/model/opengl-model-hexagon-lit_textured.ads b/3-mid/opengl/source/lean/model/opengl-model-hexagon-lit_textured.ads
index ce8dc52..882bf63 100644
--- a/3-mid/opengl/source/lean/model/opengl-model-hexagon-lit_textured.ads
+++ b/3-mid/opengl/source/lean/model/opengl-model-hexagon-lit_textured.ads
@@ -14,7 +14,7 @@ is
 
    type Face is
       record
-         Fades         : texture_Set.fade_Levels             (texture_Set.texture_Id)       := [others => 0.0];
+         Fades         : texture_Set.fade_Levels           (texture_Set.texture_Id)       := [others => 0.0];
          Textures      : openGL.asset_Names (1 .. Positive (texture_Set.texture_Id'Last)) := [others => null_Asset];     -- The textures to be applied to the hex.
          texture_Count : Natural := 0;
       end record;