diff --git a/compiler/pdecobj.pas b/compiler/pdecobj.pas
index 1552b7ef83..245859c996 100644
--- a/compiler/pdecobj.pas
+++ b/compiler/pdecobj.pas
@@ -385,6 +385,7 @@ implementation
                        { read is function returning the type of the property }
                        readprocdef.rettype:=p.proptype;
                        { Insert hidden parameters }
+                       handle_calling_convention(readprocdef);
                        calc_parast(readprocdef);
                        { search procdefs matching readprocdef }
                        p.readaccess.procdef:=Tprocsym(sym).search_procdef_bypara(readprocdef.para,p.proptype.def,[cpo_allowdefaults]);
@@ -429,6 +430,7 @@ implementation
                        writeprocdef.parast.insert(hvs);
                        writeprocdef.concatpara(nil,p.proptype,hvs,nil,false);
                        { Insert hidden parameters }
+                       handle_calling_convention(writeprocdef);
                        calc_parast(writeprocdef);
                        { search procdefs matching writeprocdef }
                        p.writeaccess.procdef:=Tprocsym(sym).search_procdef_bypara(writeprocdef.para,writeprocdef.rettype.def,[cpo_allowdefaults]);
@@ -1160,7 +1162,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.73  2003-11-10 18:06:25  florian
+  Revision 1.74  2003-12-04 23:27:49  peter
+    * missing handle_calling_convention()
+
+  Revision 1.73  2003/11/10 18:06:25  florian
     + published single properties can have a default value now
 
   Revision 1.72  2003/10/30 16:23:13  peter