diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a2b1cb9767c7..d3466cfedde7 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-20  Laurent GUERBY  <laurent@guerby.net>
+
+        PR ada/28716
+        g-socket.adb (Bind_Socket): Call Set_Address.
+	
 2006-09-15  Eric Botcazou  <ebotcazou@adacore.com>
 
 	PR ada/15802
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb
index 163dd2d0710e..f3ebfa36c8f6 100644
--- a/gcc/ada/g-socket.adb
+++ b/gcc/ada/g-socket.adb
@@ -357,6 +357,7 @@ package body GNAT.Sockets is
 
       Set_Length (Sin'Unchecked_Access, Len);
       Set_Family (Sin'Unchecked_Access, Families (Address.Family));
+      Set_Address (Sin'Unchecked_Access, To_In_Addr (Address.Addr));
       Set_Port
         (Sin'Unchecked_Access,
          Short_To_Network (C.unsigned_short (Address.Port)));