diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 36463c93bb..c545a92150 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-12-14 08:51 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/tscalar.prg
+    + added APPEND method to array scalar object
+
 2007-12-13 16:55 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbapigt.h
   * harbour/source/rtl/gtapi.c
diff --git a/harbour/source/rtl/tscalar.prg b/harbour/source/rtl/tscalar.prg
index 81f50b6acc..18495fa5cb 100644
--- a/harbour/source/rtl/tscalar.prg
+++ b/harbour/source/rtl/tscalar.prg
@@ -111,23 +111,25 @@ METHOD BecomeErr() CLASS ScalarObject
 
 CREATE CLASS Array INHERIT HBScalar FUNCTION __HBArray
 
-   METHOD Init()
+   METHOD Init
 
-   METHOD AsString()
+   METHOD AsString
    METHOD At
-   METHOD AtPut()
+   METHOD AtPut
    METHOD Add
-   METHOD AddAll()
-   METHOD Collect()
-   METHOD Copy()
-   METHOD Do()
-   METHOD DeleteAt()
-   METHOD InsertAt()
-   METHOD IndexOf()
-   METHOD IsScalar()
-   METHOD Remove()
-   METHOD Scan()
-   METHOD _Size()                        // assignment method
+   METHOD AddAll
+   METHOD Collect
+   METHOD Copy
+   METHOD Do
+   METHOD DeleteAt
+   METHOD InsertAt
+   METHOD IndexOf
+   METHOD IsScalar
+   METHOD Remove
+   METHOD Scan
+   METHOD _Size                          // assignment method
+
+   MESSAGE Append  METHOD Add
 
 ENDCLASS