diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index 6467bc9759..e72e668dcd 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -428,7 +428,8 @@ implementation
                while assigned(classh) do
                 begin
                   sym:=tsym(classh.symtable.search(pattern));
-                  if assigned(sym) then
+                  if assigned(sym) and
+                     tstoredsym(sym).is_visible_for_proc(aktprocdef) then
                    break;
                   classh:=classh.childof;
                 end;
@@ -1318,7 +1319,8 @@ implementation
                                  { search also in inherited methods }
                                  repeat
                                    srsym:=tvarsym(tobjectdef(htype.def).symtable.search(pattern));
-                                   if assigned(srsym) then
+                                   if assigned(srsym) and
+                                      tstoredsym(srsym).is_visible_for_proc(aktprocdef) then
                                     break;
                                    htype.def:=tobjectdef(htype.def).childof;
                                  until not assigned(htype.def);
@@ -1759,7 +1761,8 @@ implementation
                              while assigned(classh) do
                               begin
                                 hsym:=tsym(classh.symtable.search(pattern));
-                                if assigned(hsym) then
+                                if assigned(hsym) and
+                                   tstoredsym(hsym).is_visible_for_proc(aktprocdef) then
                                  break;
                                 classh:=classh.childof;
                               end;
@@ -1787,7 +1790,8 @@ implementation
                               while assigned(classh) do
                                 begin
                                    hsym:=tsym(classh.symtable.search(pattern));
-                                   if assigned(hsym) then
+                                   if assigned(hsym) and
+                                      tstoredsym(hsym).is_visible_for_proc(aktprocdef) then
                                      break;
                                    classh:=classh.childof;
                                 end;
@@ -1973,7 +1977,8 @@ implementation
                   while assigned(classh) do
                    begin
                      sym:=tsym(tobjectdef(classh).symtable.search(hs));
-                     if assigned(sym) then
+                     if assigned(sym) and
+                        tstoredsym(sym).is_visible_for_proc(aktprocdef) then
                       begin
                         if sym.typ=procsym then
                          begin
@@ -2483,7 +2488,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.55  2002-01-24 18:25:49  peter
+  Revision 1.56  2002-01-29 21:25:22  peter
+    * more checks for private and protected
+
+  Revision 1.55  2002/01/24 18:25:49  peter
    * implicit result variable generation for assembler routines
    * removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead