diff options
Diffstat (limited to 'Build/source/texk/web2c/gftopk.ch')
| -rw-r--r-- | Build/source/texk/web2c/gftopk.ch | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/gftopk.ch b/Build/source/texk/web2c/gftopk.ch index ed5cc0f598c..65504f88b03 100644 --- a/Build/source/texk/web2c/gftopk.ch +++ b/Build/source/texk/web2c/gftopk.ch @@ -55,7 +55,7 @@ var @<Globals in the outer block@>@/ procedure initialize; {this procedure gets things started properly} var i:integer; {loop index for initializations} begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); kpse_init_prog ('GFTOPK', 0, nil, nil); parse_arguments; print(banner); print_ln(version_string); |