diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b9483c028a..ad46fd8772 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-19 10:50 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
+   *source/rdd/rddord.prg
+     *Mapped functions to 10 character for ORDLISTCLE(),ORDLISTREB(),ORDSETFOCU()
+
 2001-08-19 10:40 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
    +source/rdd/dbfuncs.prg
      * Code for Ca-Clipper MApper DB function to 10 characters
diff --git a/harbour/source/rdd/rddord.prg b/harbour/source/rdd/rddord.prg
index ea54ab46e1..4bfbaa796b 100644
--- a/harbour/source/rdd/rddord.prg
+++ b/harbour/source/rdd/rddord.prg
@@ -91,3 +91,11 @@ FUNCTION IndexKey( nOrder )
 
    RETURN ""
 
+FUNCTION ORDLISTCLE()
+   RETURN ORDLISTCLEAR()
+
+FUNCTION ORDLISTREB()
+   RETURN ORDLISTREBUILD()
+
+FUNCTION ORDSETFOCU(xOrder,cFile)
+   RETURN ORDSETFOCUS(xOrder,cFile)