anchor.diff:      else
       begin
         if leftValue.TryCast(pInfo,tInfo) then
  -        Fail(Format('left %s but got %s - %s', [leftValue.AsString, rightValue.AsString, message]), ReturnAddress)
  +        Fail(Format('left %s but got %s - %s', [leftValue.ToString, rightValue.ToString, message]), ReturnAddress)
         else
           Fail(Format('left is not equal to right - %s', [message]), ReturnAddress)
       end;
  
positive.code: var
    comparer : IComparer<T>;
    leftValue, rightValue : TValue;
  begin
    comparer := TComparer<T>.Default;
    if comparer.Compare(right,left) = 0 then
  
negative.code:     leftValue := TValue.From<T>(left);
      rightValue := TValue.From<T>(right);
  
      Fail(Format('left %s Not Equal To %s',[leftValue.ToString,rightValue.ToString]), ReturnAddress);
    end;
  end;
  {$ELSE}
  