diff --git a/4-high/gel/source/gel-sprite.adb b/4-high/gel/source/gel-sprite.adb
index e8118a3..07547cd 100644
--- a/4-high/gel/source/gel-sprite.adb
+++ b/4-high/gel/source/gel-sprite.adb
@@ -395,11 +395,11 @@ is
 
 
 
-   procedure Model_is (Self : in out Item;   Now : in openGL.Model.view)
+   procedure graphics_Model_is (Self : in out Item;   Now : in openGL.Model.view)
    is
    begin
       Self.Visual.Model_is (Now);
-   end Model_is;
+   end graphics_Model_is;
 
 
 
diff --git a/4-high/gel/source/gel-sprite.ads b/4-high/gel/source/gel-sprite.ads
index 02787f3..f7d06ca 100644
--- a/4-high/gel/source/gel-sprite.ads
+++ b/4-high/gel/source/gel-sprite.ads
@@ -112,7 +112,7 @@ is
    function  Visual                (Self : access Item)     return openGL.Visual.view;
 
    function  graphics_Model        (Self : in     Item)     return openGL.Model.view;
-   procedure Model_is              (Self : in out Item;   Now : in openGL.Model.view);
+   procedure graphics_Model_is     (Self : in out Item;   Now : in openGL.Model.view);
    function  owns_Graphics         (Self : in     Item)           return Boolean;
 
    function  physics_Model         (Self : in     Item)     return access physics.Model.item'Class;