diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb b/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb
index 290f00f..9ff00af 100644
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb
@@ -192,7 +192,7 @@ is
 
 
    overriding
-   procedure enable_Texture (Self : in Item)
+   procedure enable_Texture (Self : in out Item)
    is
       use GL,
           GL.Binding,
diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads b/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads
index 0dc7612..f30c804 100644
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads
@@ -41,7 +41,8 @@ private
          null;
       end record;
 
+
    overriding
-   procedure enable_Texture (Self : in Item);
+   procedure enable_Texture (Self : in out Item);
 
 end openGL.Geometry.colored_textured;
diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.adb b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.adb
index 3c2686b..d2424a6 100644
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.adb
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.adb
@@ -258,7 +258,7 @@ is
 
 
    overriding
-   procedure enable_Texture (Self : in Item)
+   procedure enable_Texture (Self : in out Item)
    is
    begin
       null;
diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.ads b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.ads
index 0ac573c..67b4a4e 100644
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.ads
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.ads
@@ -51,7 +51,8 @@ private
 
    type Item is new Geometry.item with null record;
 
+
    overriding
-   procedure enable_Texture (Self : in Item);
+   procedure enable_Texture (Self : in out Item);
 
 end openGL.Geometry.lit_colored_skinned;