anchor.diff:          // in case of a partially qualified name, duplicate parent classname
           // check for a local (in this package) parent and use that
           if ((packn = '') and (parent <> nil) and DuplicateHash.Exists(LowerCase(parent.name))) then begin
  -          if (classlist[i].package.classes.Find(parent.name) <> parent) then begin
  +          tpar := classlist[i].package.classes.Find(parent.name);
  +          if ((tpar <> parent) and (tpar <> nil)) then begin
               InternalLog('Scanner: Found local parent class for '+classlist[i].FullName, ltInfo, CreateLogEntry(classlist[i]));
               continue;
             end;
  
positive.code:   Purpose:
      UnrealScript package scanner, search for UnrealScript classes
  
    $Id: unit_packages.pas,v 1.52 2005-10-02 09:18:08 elmuerte Exp $
  *******************************************************************************}
  
  {
  
negative.code:   pprio: integer;
    tmp, pname, packn, ppackn: string;
    i,j:  integer;
    tpar: TUClass;
  begin
    guard('CreateClassTree');
    pprio := 0;
  