--- Merging r16251 into 'tests/utils':

 G   tests/utils
--- Merging r16251 into '.':
U    packages/paszlib/src/gzio.pas
 G   .

git-svn-id: tags/release_2_4_2@16252 -

packages/paszlib/src/gzio.pas

@@ -451,7 +451,7 @@ begin
 
   if ((flags and EXTRA_FIELD) <> 0) then begin { skip the extra field }
     len := cardinal(get_byte(s));
-    len := len + (cardinal(get_byte(s)) shr 8);
+    len := len + (cardinal(get_byte(s)) shl 8);
     { len is garbage if EOF but the loop below will quit anyway }
     while (len <> 0) and (get_byte(s) <> Z_EOF) do Dec(len);
   end;
@@ -1220,4 +1220,4 @@ begin
   gzerror := s^.msg;
 end;
 
-end.
+end.