TOT() seems broke

[garyolman@bellsouth]

Here is the complete file 
The line gh=TOT(23) does not work 
23 is a (6,,g)
::gh(9,,g)="":
::gd(6,,g); ge(6,,g); gf(6,,g):
:ii="":input ii "\r Report heading please  \r":
::gd=gd+24; ge=ge+23; gf=gf+26:
::end:
@wbrk1:   'shipped        ordered           total sales $:ga=gd; gb=ge;
gc=gf:
::gd="";ge="";gf="":
::gh=TOT(23):
::lookup sor = sortingfile  r=free  -e:
::sor(2)=gc;sor(6)=ga;sor(7)=gb;sor(1)=21;sor(8)=22:
:: write:
::' sor(2)=sor(2)+gc; sor(6)=sor(6)+ga; sor(7)=sor(7)+gb:

Thanks for the help
Gary