anchor.diff:    ElementName := GetElementName(ClassName);
     if IsSmartObject(ElementName) then ElementName := 'ISmartObject';
     Info := TClassManager.TypeInfo(ElementName);
  -  if Info = nil then
  +  if not Assigned(Info) then
       raise Exception.Create('Can not serialize ' + ClassName)
     else begin
       FRefer.SetRef(ObjToVar(AList));
  
positive.code:   Name := GetTypeName(Info);
    ElementName := GetElementName(Name);
    ElementInfo := TClassManager.TypeInfo(ElementName);
    if ElementInfo = nil then
      raise Exception.Create(ElementName + 'is not registered');
    case ElementInfo^.Kind of
  {$IFNDEF NEXTGEN}
  
negative.code:   FRefer.SetRef(Result);
    for I := 0 to Count - 1 do begin
      PropInfo := GetPropInfo(Instance, AttrNames[I]);
      if Assigned(PropInfo) then
        HproseCommon.SetPropValue(Instance, PropInfo,
                     Unserialize(PropInfo^.PropType{$IFNDEF FPC}^{$ENDIF}))
      else Unserialize;
  