diff --git a/rtl/dos/go32.pp b/rtl/dos/go32.pp
index 04d75a6060..ff7c1a6b6c 100644
--- a/rtl/dos/go32.pp
+++ b/rtl/dos/go32.pp
@@ -186,19 +186,19 @@ unit go32;
        tport = class
           procedure writeport(p : word;data : byte);
           function readport(p : word) : byte;
-          property p[w : word] : byte read readport write writeport;default;
+          property pp[w : word] : byte read readport write writeport;default;
        end;
 
        tportw = class
           procedure writeport(p : word;data : word);
           function readport(p : word) : word;
-          property p[w : word] : word read readport write writeport;default;
+          property pp[w : word] : word read readport write writeport;default;
        end;
 
        tportl = class
           procedure writeport(p : word;data : longint);
           function readport(p : word) : longint;
-          property p[w : word] : longint read readport write writeport;default;
+          property pp[w : word] : longint read readport write writeport;default;
        end;
     var
        { we don't need to initialize port, because neither member
@@ -1209,7 +1209,13 @@ end.
 
 {
   $Log$
-  Revision 1.3  1998-04-12 22:35:29  florian
+  Revision 1.4  1998-04-24 08:26:50  pierre
+    * had to rename property from p to pp to
+      avoid duplicate identifier error in
+      implementation of readport and writeport
+      that have p as argument
+
+  Revision 1.3  1998/04/12 22:35:29  florian
     + support of port-array added
 
   Revision 1.2  1998/03/29 17:26:20  florian