diff --git a/src/shared/utils.pas b/src/shared/utils.pas
index d73d25766e0734e972f0cf5a8a099d099d2a586e..9e136495bc8792dc661c3e4fa254ee58d24974a6 100644 (file)
--- a/src/shared/utils.pas
+++ b/src/shared/utils.pas
while (len > 0) do
begin
if (len > 255) then slen := 255 else slen := Integer(len);
- Move(b^, ss[1], len);
+ Move(b^, ss[1], slen);
ss[0] := AnsiChar(slen);
result += ss;
b += slen;