diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0112dbaeff..88568eaadd 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-10-01 17:24 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
+  * harbour/contrib/sddpg/sddpg.c
+    * added text field support provided by Aleksander Czajczynski with
+      some changes
+
 2010-10-01 17:15 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
   * harbour/contrib/hbwin/tests/oletst2.vbs
     * restored unintentional commit
diff --git a/harbour/contrib/sddpg/sddpg.c b/harbour/contrib/sddpg/sddpg.c
index 6fdc9f61f3..eae6d42a54 100644
--- a/harbour/contrib/sddpg/sddpg.c
+++ b/harbour/contrib/sddpg/sddpg.c
@@ -296,6 +296,11 @@ static HB_ERRCODE pgsqlOpen( SQLBASEAREAP pArea )
             pFieldInfo.uiLen = ( HB_USHORT ) PQfmod( pResult, uiCount ) - 4;
             break;
 
+         case TEXTOID:
+            pFieldInfo.uiType = HB_FT_MEMO;
+            pFieldInfo.uiLen = 10;
+            break;
+
          case NUMERICOID:
             pFieldInfo.uiType = HB_FT_DOUBLE;
             pFieldInfo.uiLen = ( PQfmod( pResult, uiCount ) - 4 ) >> 16;