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) ||
<td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=9b0c95cc6877229da0816e7b962090966a8577de'>refs</a><a class='active' href='/guix/log/gnu/services/sddm.scm'>log</a><a href='/guix/tree/gnu/services/sddm.scm?id=9b0c95cc6877229da0816e7b962090966a8577de'>tree</a><a href='/guix/commit/gnu/services/sddm.scm?id=9b0c95cc6877229da0816e7b962090966a8577de'>commit</a><a href='/guix/diff/gnu/services/sddm.scm?id=9b0c95cc6877229da0816e7b962090966a8577de'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/services/sddm.scm'>
<input type='hidden' name='id' value='9b0c95cc6877229da0816e7b962090966a8577de'/><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=9b0c95cc6877229da0816e7b962090966a8577de'>root</a>/<a href='/guix/log/gnu?id=9b0c95cc6877229da0816e7b962090966a8577de'>gnu</a>/<a href='/guix/log/gnu/services?id=9b0c95cc6877229da0816e7b962090966a8577de'>services</a>/<a href='/guix/log/gnu/services/sddm.scm?id=9b0c95cc6877229da0816e7b962090966a8577de'>sddm.scm</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/gnu/services/sddm.scm?id=9b0c95cc6877229da0816e7b962090966a8577de&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-03-01 14:13:27 +0100'>2020-03-01</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=50be0da7bfd5c108697679effeb2a893d2f37598'>services: set-xorg-configuration: handle slim and sddm</a><span class='msg-avail'>...</span></td><td>Jakub Kądziołka</td></tr>
<tr><td><span title='2020-02-16 09:25:00 +0200'>2020-02-16</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=3c6aca4232d1a3638ec962bc7afe9121626c43ec'>doc: Fix typo.</a><span class='msg-avail'>...</span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2019-10-21 18:16:16 +0200'>2019-10-21</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=cfe8d8063b5d79fc91eb757c2020244e239b77b3'>services: sddm: Add description.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-10-21 18:16:16 +0200'>2019-10-21</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=8cf3e167c15a0dba3166cbeee46d41f26cbf75f1'>services: sddm: Deprecate 'sddm-service' procedure.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-10-21 18:16:16 +0200'>2019-10-21</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=5ac5f2c1298cac811a544e2db193ba5d69d9fce6'>services: sddm: Add default configuration.</a><span class='msg-avail'>...</span></td><td>Brendan Tildesley</td></tr>
<tr><td><span title='2019-05-26 01:34:16 +0200'>2019-05-26</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=ed90104cc82fdd6b762a159b06c0ea37b417a9a5'>services: sddm: Fix root login failure issue.</a><span class='msg-avail'>...</span></td><td>Reza Alizadeh Majd</td></tr>
<tr><td><span title='2019-04-11 05:42:41 +0200'>2019-04-11</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=02394462fcddd4fdaf354178160adc54c47de1bc'>services: sddm: Switch back to using ‘startx’.</a><span class='msg-avail'>...</span></td><td>frozenpigs</td></tr>
<tr><td><span title='2019-03-25 19:24:22 +0100'>2019-03-25</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=b283d5f6308154b42a8656f370c97168726b2ab5'>services: SDDM: Specify absolute path to the X server.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2019-03-24 23:06:11 +0100'>2019-03-24</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=554b8607396785dcde6eb391f75f98a07ec582fd'>services: sddm, slim, gdm: Take an &lt;xorg-configuration&gt; record.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-12-21 20:45:34 +0100'>2016-12-21</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=d1f30631967826be56abf8b5f3f868a8c7ef7027'>gnu: Fix typo in comment.</a><span class='msg-avail'>...</span></td><td>John Darrington</td></tr>
<tr><td><span title='2016-10-15 16:35:04 +0200'>2016-10-15</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=6f30a55c9660cc87227faa3a4c7300bd51e79e4e'>gnu: services sddm  Fix typo.</a><span class='msg-avail'>...</span></td><td>John Darrington</td></tr>
<tr><td><span title='2016-09-10 13:10:06 +0200'>2016-09-10</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=9e41130b14ad32c4e1fa756f95d806703056cb60'>system: Use 'file-append' to denote file names.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-09-06 17:48:59 +0200'>2016-09-06</span></td><td><a href='/guix/commit/gnu/services/sddm.scm?id=935644c01ade149f33e1eeea9ed8647f229aa4d6'>services: Add sddm service.</a><span class='msg-avail'>...</span></td><td>David Craven</td></tr>