From 86105d23a60c9ce2f30460344e71278166389acb Mon Sep 17 00:00:00 2001
From: Andreas Scherer <andreas_tex@freenet.de>
Date: Fri, 27 Oct 2023 10:48:55 +0000
Subject: [WEB] Arithmetic abnormality.

git-svn-id: svn://tug.org/texlive/trunk@68671 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/web2c/weav-twill.ch | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Build/source/texk/web2c')

diff --git a/Build/source/texk/web2c/weav-twill.ch b/Build/source/texk/web2c/weav-twill.ch
index 7fb50198a52..f43a03bf660 100644
--- a/Build/source/texk/web2c/weav-twill.ch
+++ b/Build/source/texk/web2c/weav-twill.ch
@@ -940,7 +940,7 @@ exit:end;
 procedure out_const(@!n:sixteen_bits);
 var a,k:integer;
 begin a:=n; k:=0;
-if a>=32768 then
+if a>=65536 then
   begin out("-"); a:=131072-a;
   end;
 repeat dig[k]:=a mod 10; a:=a div 10; incr(k);
-- 
cgit v1.2.3