anchor.diff:          else
             Result := Collect;
         end
  +      else if TryShorterEntity(Entity, I, Collect) then
  +      begin
  +        AddNumericChar(I, True);
  +        htAppendStr(Result, Collect);
  +      end
         else
           Result := Collect;
       end; {case}
  
positive.code:         else
            Result := Collect;
        end
        else
          Result := Collect;
      end; {case}
  
negative.code: 
      procedure NextCh;
      begin
        htAppendChr(Collect, LCh);
        GetCh;
      end;
  
  