diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 79a93ca417..1e2e28b1b5 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -165,7 +165,7 @@ var
                         Processor specific routines
 ****************************************************************************}
 
-Procedure Move(const source,dest;count:Longint);
+Procedure Move(const source;var dest;count:Longint);
 Procedure FillChar(Var x;count:Longint;Value:Boolean);
 Procedure FillChar(Var x;count:Longint;Value:Char);
 Procedure FillChar(Var x;count:Longint;Value:Byte);
@@ -445,7 +445,10 @@ const
 
 {
   $Log$
-  Revision 1.86  2000-07-07 18:23:41  marco
+  Revision 1.87  2000-07-07 19:22:27  pierre
+   * correct last commit error
+
+  Revision 1.86  2000/07/07 18:23:41  marco
    * Changed move (var source;var dest) to move (const source;var dest)
 
   Revision 1.85  2000/06/22 18:41:25  peter
@@ -533,4 +536,4 @@ const
   Revision 1.62  1999/08/19 11:16:13  peter
     * settextbuf size is now longint
 
-}
+}
\ No newline at end of file