diff --git a/compiler/psub.pas b/compiler/psub.pas
index 48f546cc98..11a9de6cdb 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -1238,6 +1238,9 @@ begin
                     begin
                       { only trigger an error, becuase it doesn't hurt }
                       Message(parser_e_call_convention_dont_match_forward);
+                      { set the mangledname to the interface name so it doesn't trigger
+                        the Note about different manglednames (PFV) }
+                      aktprocsym^.definition^.setmangledname(hd^.mangledname);
                     end;
                  { manglednames are equal? }
                    hd^.count:=false;
@@ -1986,7 +1989,11 @@ end.
 
 {
   $Log$
-  Revision 1.50  2000-02-20 20:49:45  florian
+  Revision 1.51  2000-02-27 14:44:39  peter
+    * if calling convention doesn't match don't print note about
+      different manglednames
+
+  Revision 1.50  2000/02/20 20:49:45  florian
     * newcg is compiling
     * fixed the dup id problem reported by Paul Y.