Hi,
thanks for fixing the \adjdemerits problem. One remark about the fix:
The line
if ( (fit_class>(fitness(r)+1)) || (fitness(r)>(fit_class+1)) )
is indented by one tab "\t" and four spaces, while all surrounding code
is only indented with spaces.