Extracted from upstream commit 0264e7da2be67182deb031228eb07e6ed4943c81.

diff --git a/src/lib_ccx/ocr.c b/src/lib_ccx/ocr.c
index 31cc1c5c..73bd4818 100644
--- a/src/lib_ccx/ocr.c
+++ b/src/lib_ccx/ocr.c
@@ -331,6 +331,11 @@ char *ocr_bitmap(void *arg, png_color *palette, png_byte *alpha, unsigned char *
 	}
 
 	BOX *crop_points = ignore_alpha_at_edge(copy->alpha, copy->data, w, h, color_pix, &color_pix_out);
+
+	l_int32 x, y, _w, _h;
+
+	boxGetGeometry(crop_points, &x, &y, &_w, &_h);
+
 	// Converting image to grayscale for OCR to avoid issues with transparency
 	cpix_gs = pixConvertRGBToGray(cpix, 0.0, 0.0, 0.0);
 
@@ -426,8 +431,8 @@ char *ocr_bitmap(void *arg, png_color *palette, png_byte *alpha, unsigned char *
 				{
 					for (int j = x1; j <= x2; j++)
 					{
-						if (copy->data[(crop_points->y + i) * w + (crop_points->x + j)] != firstpixel)
-							histogram[copy->data[(crop_points->y + i) * w + (crop_points->x + j)]]++;
+						if (copy->data[(y + i) * w + (x + j)] != firstpixel)
+							histogram[copy->data[(y + i) * w + (x + j)]]++;
 					}
 				}
 				/* sorted in increasing order of intensity */
b94a9da3690ef274002eba92'>refs</a><a class='active' href='/guix/log/gnu/packages/chez.scm'>log</a><a href='/guix/tree/gnu/packages/chez.scm?id=761801d8b9500a8bb94a9da3690ef274002eba92'>tree</a><a href='/guix/commit/gnu/packages/chez.scm?id=761801d8b9500a8bb94a9da3690ef274002eba92'>commit</a><a href='/guix/diff/gnu/packages/chez.scm?id=761801d8b9500a8bb94a9da3690ef274002eba92'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/chez.scm'>
<input type='hidden' name='id' value='761801d8b9500a8bb94a9da3690ef274002eba92'/><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=761801d8b9500a8bb94a9da3690ef274002eba92'>root</a>/<a href='/guix/log/gnu?id=761801d8b9500a8bb94a9da3690ef274002eba92'>gnu</a>/<a href='/guix/log/gnu/packages?id=761801d8b9500a8bb94a9da3690ef274002eba92'>packages</a>/<a href='/guix/log/gnu/packages/chez.scm?id=761801d8b9500a8bb94a9da3690ef274002eba92'>chez.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/packages/chez.scm?id=761801d8b9500a8bb94a9da3690ef274002eba92&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-09-13 22:49:56 +0200'>2021-09-13</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=7c2180329eb8ed3612c43761133789a1ee7ac636'>gnu: chez-web: Replace texlive-fonts-cm with texlive-cm.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-09-13 22:49:56 +0200'>2021-09-13</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=0f2e91490afed10f3f5414f3806655580a9ce9be'>gnu: chez-web: Add texlive-charter.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-09-13 22:49:56 +0200'>2021-09-13</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=f98dfdc1b6d73e0b9f3f45c74942289bbefd7b34'>gnu: Add texlive-context.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-09-13 22:49:55 +0200'>2021-09-13</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=9003bd8709c2b3f88e4ab34d3fc8e061a1beb08e'>gnu: Add texlive-pdftex.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-04-05 16:10:06 +0200'>2021-04-05</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=e29b1fff1d8147623ab149fca7b0cc42a376bf62'>gnu: chez-scheme: simplify packaging</a><span class='msg-avail'>...</span></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-04-05 16:10:06 +0200'>2021-04-05</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=6f71fd4a5e9f2ccd0ae8b78cdb59d53e9cde9544'>gnu: chez-scheme: Update stex.</a><span class='msg-avail'>...</span></td><td>Philip McGrath</td></tr>
<tr><td><span title='2021-04-05 16:10:06 +0200'>2021-04-05</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=d8e6486877643d7d948557badc614c2b844a6d85'>gnu: chez-scheme: Update nanopass to 1.9.2.</a><span class='msg-avail'>...</span></td><td>Philip McGrath</td></tr>
<tr><td><span title='2020-12-18 16:13:40 +0100'>2020-12-18</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=2be6323080cc0f298c38a781b596f90fd8803430'>gnu: chez-scheme: Patch more hard-coded paths.</a><span class='msg-avail'>...</span></td><td>Brendan Tildesley</td></tr>
<tr><td><span title='2020-12-18 16:13:39 +0100'>2020-12-18</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=8837bb2d3143ba530fe8b8e7872269a4c85fa544'>gnu: chez-scheme: Update to 9.5.4.</a><span class='msg-avail'>...</span></td><td>Brendan Tildesley</td></tr>
<tr><td><span title='2020-09-02 17:17:37 +0200'>2020-09-02</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=95e6468a841d77d8c766f8e331eb66115eaf1550'>gnu: chez-scheme: Install libraries to 'lib/csvX.Y.Z-site'</a><span class='msg-avail'>...</span></td><td>Martin Becze</td></tr>
<tr><td><span title='2020-08-28 23:27:53 +0200'>2020-08-28</span></td><td><a href='/guix/commit/gnu/packages/chez.scm?id=cd0c4e4ef8b64d0a24d20f525a9b214d9779a78c'>gnu: chez-srfi: Fix tests.</a><span class='msg-avail'>...</span></td><td>Martin Becze</td></tr>