diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index af8a4e1321..0435343bec 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+20000117-13:30 GMT+1 Ryszard Glab <rglab@imid.med.pl>
+
+    *source/rtl/type.c
+	* added hb_retc( "U" ) for initial implementation of TYPE() function
+	(due to a very popular demand :)
+
 20000117-12:25 GMT+1 Ryszard Glab <rglab@imid.med.pl>
 
     *source/rtl/achoice.prg
diff --git a/harbour/source/rtl/type.c b/harbour/source/rtl/type.c
index d00f27183a..b71fa2b039 100644
--- a/harbour/source/rtl/type.c
+++ b/harbour/source/rtl/type.c
@@ -65,5 +65,6 @@
 
 HARBOUR HB_TYPE( void )
 {
-   /* TODO: Implement this. */
+    /* TODO: implement this */
+    hb_retc( "U" );
 }