* only check for the method if one is given at all (otherwise everything would be skipped)

git-svn-id: trunk@38115 -

rtl/objpas/classes/classes.inc

@@ -559,7 +559,7 @@ begin
         Continue;
       end;
       { then check for the method }
-      if entry^.Method <> aMethod then begin
+      if Assigned(aMethod) and (entry^.Method <> aMethod) then begin
         lastentry := entry;
         entry := entry^.Next;
         Continue;