diff --git a/source/texk/web2c/ptexdir/ptex-base.ch b/source/texk/web2c/ptexdir/ptex-base.ch
index a7896cbc9..6609dac16 100644
--- a/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/source/texk/web2c/ptexdir/ptex-base.ch
@@ -1505,7 +1505,7 @@ primitive("ptextracingfonts",assign_int,int_base+ptex_tracing_fonts_code);@/
 @d dimen_pars=23 {total number of dimension parameters}
 @d scaled_base=dimen_base+dimen_pars
   {table of 256 user-defined \.{\\dimen} registers}
-@d kinsoku_penalty_base=scaled_base+1024 {table of 256 kinsoku registers}
+@d kinsoku_penalty_base=scaled_base+256 {table of 1024 kinsoku registers}
 @d eqtb_size=kinsoku_penalty_base+1023 {largest subscript of |eqtb|}
 @z
 
diff --git a/source/texk/web2c/uptexdir/ptex-base.ch b/source/texk/web2c/uptexdir/ptex-base.ch
index a7896cbc9..6609dac16 100644
--- a/source/texk/web2c/uptexdir/ptex-base.ch
+++ b/source/texk/web2c/uptexdir/ptex-base.ch
@@ -1505,7 +1505,7 @@ primitive("ptextracingfonts",assign_int,int_base+ptex_tracing_fonts_code);@/
 @d dimen_pars=23 {total number of dimension parameters}
 @d scaled_base=dimen_base+dimen_pars
   {table of 256 user-defined \.{\\dimen} registers}
-@d kinsoku_penalty_base=scaled_base+1024 {table of 256 kinsoku registers}
+@d kinsoku_penalty_base=scaled_base+256 {table of 1024 kinsoku registers}
 @d eqtb_size=kinsoku_penalty_base+1023 {largest subscript of |eqtb|}
 @z