diff --git a/extract.c b/extract.c
index a0a4929..9ef80b3 100644
--- a/extract.c
+++ b/extract.c
@@ -2214,6 +2214,7 @@ static int test_compr_eb(__G__ eb, eb_size, compr_offset, test_uc_ebdata)
     ulg eb_ucsize;
     uch *eb_ucptr;
     int r;
+    ush method;
 
     if (compr_offset < 4)                /* field is not compressed: */
         return PK_OK;                    /* do nothing and signal OK */
@@ -2223,6 +2224,12 @@ static int test_compr_eb(__G__ eb, eb_size, compr_offset, test_uc_ebdata)
          eb_size <= (compr_offset + EB_CMPRHEADLEN)))
         return IZ_EF_TRUNC;               /* no compressed data! */
 
+    method = makeword(eb + (EB_HEADSIZE + compr_offset));
+    if ((method == STORED) && (eb_size != compr_offset + EB_CMPRHEADLEN + eb_ucsize))
+        return PK_ERR;            /* compressed & uncompressed
+                                   * should match in STORED
+                                   * method */
+
     if (
 #ifdef INT_16BIT
         (((ulg)(extent)eb_ucsize) != eb_ucsize) ||
'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=7ef5f77b910fe44a36cb8057f8800d33d8672f32'>refs</a><a class='active' href='/guix/log/.mailmap'>log</a><a href='/guix/tree/.mailmap?id=7ef5f77b910fe44a36cb8057f8800d33d8672f32'>tree</a><a href='/guix/commit/.mailmap?id=7ef5f77b910fe44a36cb8057f8800d33d8672f32'>commit</a><a href='/guix/diff/.mailmap?id=7ef5f77b910fe44a36cb8057f8800d33d8672f32'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/.mailmap'>
<input type='hidden' name='id' value='7ef5f77b910fe44a36cb8057f8800d33d8672f32'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=7ef5f77b910fe44a36cb8057f8800d33d8672f32'>root</a>/<a href='/guix/log/.mailmap?id=7ef5f77b910fe44a36cb8057f8800d33d8672f32'>.mailmap</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/.mailmap?id=7ef5f77b910fe44a36cb8057f8800d33d8672f32&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-03-28 16:30:07 -0400'>2020-03-28</span></td><td><a href='/guix/commit/.mailmap?id=c2cf286c62933d2806ae17b8287520820bf87c7e'>Update email address and Savannah handle for Amin Bandali.</a><span class='msg-avail'>...<span class='msg-tooltip'>* .mailmap, gnu/local.mk, gnu/packages/emacs-xyz.scm, gnu/packages/emacs.scm,
gnu/packages/fonts.scm, gnu/packages/fpga.scm, gnu/packages/lean.scm,
gnu/packages/maths.scm, gnu/packages/pulseaudio.scm: Update my email address.
* build-aux/git-authenticate.scm: Update my Savannah handle.
</span></span></td><td>Amin Bandali</td></tr>
<tr><td><span title='2020-02-09 23:16:45 +0100'>2020-02-09</span></td><td><a href='/guix/commit/.mailmap?id=e81344428726f3dae5d2a2e7bb296f46fcde6cc5'>Update e-mail address for Jakob L. Kreuze.</a><span class='msg-avail'>...<span class='msg-tooltip'>As requested here:
&lt;https://lists.gnu.org/archive/html/guix-devel/2020-02/msg00128.html&gt;.

* .mailmap: Add an entry for Jakob.
* gnu/machine.scm, gnu/machine/digital-ocean.scm, gnu/machine/ssh.scm,
gnu/packages/admin.scm, gnu/packages/i2p.scm, gnu/packages/music.scm,
gnu/packages/web.scm, gnu/tests/reconfigure.scm, guix/scripts/deploy.scm,
guix/scripts/system/reconfigure.scm: Update their e-mail address.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-01-17 18:30:33 +0100'>2020-01-17</span></td><td><a href='/guix/commit/.mailmap?id=a3143063aeeecb5c02f75a6e1ddc0cc295e0e4f8'>Update email address for Amin Bandali.</a><span class='msg-avail'>...<span class='msg-tooltip'>* .mailmap: Add name and email addresses for Amin Bandali.
* gnu/local.mk, gnu/packages/emacs-xyz.scm, gnu/packages/emacs.scm,
gnu/packages/fpga.scm, gnu/packages/lean.scm, gnu/packages/maths.scm:
Update email address for Amin Bandali.

Signed-off-by: Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;
</span></span></td><td>Amin Bandali</td></tr>
<tr><td><span title='2019-12-19 11:35:23 -0600'>2019-12-19</span></td><td><a href='/guix/commit/.mailmap?id=4b3ff36228da17db980c98fe9e1669be613a5402'>Update email for Brett Gilio.</a><span class='msg-avail'>...<span class='msg-tooltip'>* .mailmap: Add name and email for Brett Gilio.
* gnu/local.mk, gnu/packages/admin.scm, gnu/packages/audio.scm,
  gnu/packages/bittorrent.scm, gnu/packages/build-tools.scm,
  gnu/packages/cran.scm, gnu/packages/emacs-xyz.scm,
  gnu/packages/messaging.scm, gnu/packages/python-xyz.scm,
  gnu/packages/sml.scm, gnu/packages/terminals.scm, gnu/packages/wm.scm:
  Update email for Brett Gilio.
</span></span></td><td>Brett Gilio</td></tr>
<tr><td><span title='2019-12-18 22:57:44 -0600'>2019-12-18</span></td><td><a href='/guix/commit/.mailmap?id=a7cdf124c0b28be6c4e750161c1341753eede7b8'>gnu: leocad: Update to 19.07.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/lego.scm (leocad): Update to 19.07.1
[source]: Use git-fetch.
* .mailmap: Add preferred alias for myself.
</span></span></td><td>Eric Bavier</td></tr>