diff --git a/src/BSDSocket.s b/src/BSDSocket.s
index 6af1ca8..e0b697d 100644
--- a/src/BSDSocket.s
+++ b/src/BSDSocket.s
@@ -2033,6 +2033,9 @@ _DnsGetHostAddressByName_GetIPAddressLength:
     ADDQ #2,D3
 
     Rjsr L_Demande ; string is in A0/A1
+    LEA 2(A0,D3.W),A1
+    MOVE.L A1,HiChaine(A5)
+    MOVE.L A0,A1
 
     MOVE.W D4,(A1)+
 
@@ -2042,11 +2045,6 @@ _DnsGetHostAddressByName_KeepCopying:
     MOVE.B (A2)+,(A1)+
     DBRA D4,_DnsGetHostAddressByName_KeepCopying
 
-    MOVE.W A1,D1
-    AND.W #$0001,D1
-    ADD.W D1,A1
-
-    MOVE.L A1,HiChaine(A5)
     MOVE.L A0,D3
 
     RestoreStackFunction