diff --git a/4-high/gel/source/gel-sprite.adb b/4-high/gel/source/gel-sprite.adb
index 4361f39..e8118a3 100644
--- a/4-high/gel/source/gel-sprite.adb
+++ b/4-high/gel/source/gel-sprite.adb
@@ -347,7 +347,7 @@ is
 
 
 
-   procedure is_Visible (Self : in out Item;   Now : in Boolean)
+   procedure is_Visible (Self : in out Item;   Now : in Boolean := True)
    is
    begin
       Self.is_Visible := Now;
diff --git a/4-high/gel/source/gel-sprite.ads b/4-high/gel/source/gel-sprite.ads
index 3bf66ee..cf5b575 100644
--- a/4-high/gel/source/gel-sprite.ads
+++ b/4-high/gel/source/gel-sprite.ads
@@ -130,7 +130,7 @@ is
    procedure mvp_Matrix_is         (Self : in out Item;   Now : in Matrix_4x4);
    function  mvp_Matrix            (Self : in     Item)     return Matrix_4x4;
 
-   procedure is_Visible            (Self : in out Item;   Now : in Boolean);
+   procedure is_Visible            (Self : in out Item;   Now : in Boolean := True);
    function  is_Visible            (Self : in     Item)     return Boolean;
 
    procedure key_Response_is       (Self : in out Item;   Now : in lace.Response.view);