Handling & and < in the debug data

Function:

::Routine NoHTML public
Return changestr('<',changestr('&',arg(1),'&amp;'),'&lt;')

The effect on the debugging:

If debug.0 > 0 & 'debugging'() then do
  Say '<H2>Debug:</H2>
  Do I = 1 to debug.0
    Say 'nohtml'(debug.i)'<BR>'
    End
  End