* fixed web bug #4934

git-svn-id: trunk@3019 -

packages/base/netdb/netdb.pp

@@ -365,7 +365,8 @@ begin
       Inc(I,P+1);
       Inc(O,P);
       end;
-   Until (Payload[I]=#0);    
+   Until (Payload[I]=#0);
+   setlength(result,o-1);
 end;