diff --git a/4-high/gel/source/world/gel-world-server.adb b/4-high/gel/source/world/gel-world-server.adb
index dc4e406..d7b9bce 100644
--- a/4-high/gel/source/world/gel-world-server.adb
+++ b/4-high/gel/source/world/gel-world-server.adb
@@ -197,7 +197,7 @@ is
                                                       --  Spin => the_Sprite.Spin);
 
                --  log (Image (Quaternion' (refined (the_motion_Updates (updates_Count).Spin))));
-               ada.Text_IO.put (refined (the_motion_Updates (updates_Count).Site)'Image);
+               --  ada.Text_IO.put (refined (the_motion_Updates (updates_Count).Site)'Image);
 
                next (Cursor);
             end loop;