diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 18f1592722..06a4728f30 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990520-13:50 CET Eddie Runia
+  * tests/working/transfrm.c
+    set date and century added.
+
 19990520-11:00 CET Eddie Runia
   * tests/working/runner.c
     simple file correctness checks added
diff --git a/harbour/tests/working/transfrm.prg b/harbour/tests/working/transfrm.prg
index d56ae3f474..f7b17e3df0 100644
--- a/harbour/tests/working/transfrm.prg
+++ b/harbour/tests/working/transfrm.prg
@@ -1,9 +1,12 @@
+#include "set.ch"
+
 //extern OutStd
 //extern Str
 
 function Main()
 
-   QOut("// PLEASE SET DATE TO BRITISH AND CENTURY ON")
+   HB_SetCentury(.T.)
+   Set(_SET_DATEFORMAT, "dd/mm/yyyy")
    QOut( "Hallo      ", "!!!!!       ", transform( "Hallo   ", "!!!!!"    ) )
    QOut( "Hallo      ", "!!A!!       ", transform( "Hallo   ", "!!A!!"    ) )
    QOut( "Hallo      ", "!!A9!       ", transform( "Hallo   ", "!!A9!"    ) )