🚀 go-pugleaf

Help:

We have been using the following mm based macro here for about 6 years and 
suddenly it does not seem to work.  When a ".F1 String" is encountered in an 
nroff file, it is supposed to finish printing on the current page then on the
following page it should print : "This page for String", then skip a page.	
However, this is not the case.  What it is doing is printing a few words 
from the previous page along with the string.  So it ends up printing 
something like this:

and in conclusion This page for String

and then it skips a page.  Please mail me any pointers or suggestions.
The .F1 macro follows:


\" This is the start of the F1 definition file.
.nr tk 0
.de KI
.ds B "
..
.de T1
.ie \\n(.$>0 .nr tk \\n(tk+\\$1
.el .nr tk \\n(tk+1
..
.de F1
.T1 "\\$1"
.as B " \\$2;
..
.am TP
.if \\n(tk>0  .ie \\n%>1 \{\
.    nr P (\\n%+\\n(tk-1)
.    el .nr P (\\n%+\\n(tk+1)
.    nr tk 0
This page is for \\*B
.ds B " "
.    SK
.\}
..
\" This is the end of the F1 def. file.
-- 
	wjc@rayssd.RAY.COM
	{ cbosgd, gatech, ihnp4, uiucdcs }!rayssd!wjc