diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a1076f0306..40c84bd9d7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,13 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */ 
     * harbour/makefile.vc
+        #command TEXT => __text|Qout(%s)|QQOut()
+        #command TEXT TO FILE <f> => ;
+         __text|Qout(%s)|__TextRestore()|__TextSave(<f>)
+
+        ParseBlockCode is called for every line beetwen TEXT/ENDTEXT,
+        %s is replaced with the text enclosed with []
+
 2006-03-02 01:10 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/pp/ppcore.c
     * fixed yest another problem with PP which caused GPF on
diff --git a/harbour/include/dbinfo.ch b/harbour/include/dbinfo.ch
index 71d98e42ba..dbfd94f90e 100644
--- a/harbour/include/dbinfo.ch
+++ b/harbour/include/dbinfo.ch
@@ -263,6 +263,7 @@
 #define DBI_SEPARATOR           134  /* The record separator (as a string) */
 #define DBI_MEMOVERSION         135  /* sub version of memo file */
 #define DBI_TABLETYPE           136   /* Type of table file */
+#define DBI_SCOPEDRELATION      137   /* Is given relation scoped */
 
 /* RECORD MAP (RM) support */
 #define DBI_RM_SUPPORTED        150  /* has WA RDD record map support? */
diff --git a/harbour/source/rdd/workarea.c b/harbour/source/rdd/workarea.c
index 51fb709671..cb663978b1 100644
--- a/harbour/source/rdd/workarea.c
+++ b/harbour/source/rdd/workarea.c
@@ -645,6 +645,27 @@ ERRCODE hb_waInfo( AREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
          break;
       }
 
+      case DBI_SCOPEDRELATION:
+      {
+         int iRelNo = hb_itemGetNI( pItem );
+         BOOL fScoped = FALSE;
+
+         if( iRelNo > 0 )
+         {
+            LPDBRELINFO lpdbRelations = pArea->lpdbRelations;
+            while( lpdbRelations )
+            {
+               if( --iRelNo == 0 )
+               {
+                  fScoped = lpdbRelations->isScoped;
+                  break;
+               }
+               lpdbRelations = lpdbRelations->lpdbriNext;
+            }
+         }
+         hb_itemPutL( pItem, fScoped );
+      }
+
       case DBI_RM_SUPPORTED:
          hb_itemPutL( pItem, FALSE );
          break;