Index: tol/btol/bgrammar/nameblock.cpp
===================================================================
--- tol/btol/bgrammar/nameblock.cpp	(revision e8b02037ee318518f0ba66fa84c1c9b54ba1ef89)
+++ tol/btol/bgrammar/nameblock.cpp	(revision 70a78b2092cdddd44e1835ec22bac3605eadfcfe)
@@ -1004,9 +1004,17 @@
 
 //--------------------------------------------------------------------
+static bool isSpecial(const BText& name)
+//--------------------------------------------------------------------
+{
+  return(name=="StartActions");
+}
+
+//--------------------------------------------------------------------
 bool BNameBlock::add_using_symbol(
   const BText& name,
   BObjByNameHash::const_iterator iter,
   bool usingAlsoReadOnly,
-  bool usingAlsoPrivate
+  bool usingAlsoPrivate,
+  bool usingAlsoSpecial
 )
 //--------------------------------------------------------------------
@@ -1017,4 +1025,5 @@
     if(!usingAlsoPrivate  && ((iter->first)[1]!='.')) { return(true); }
   }
+  if(!usingAlsoSpecial && isSpecial(name)) { return(true); }
   bool ok = true;
   BObjByNameHash::const_iterator found ;
@@ -1058,5 +1067,6 @@
     const BSyntaxObject* obj,
     bool usingAlsoReadOnly,
-    bool usingAlsoPrivate)
+    bool usingAlsoPrivate,
+    bool usingAlsoSpecial)
 //--------------------------------------------------------------------
 {
@@ -1084,10 +1094,11 @@
   for(iter=pbm.begin(); iter!=pbm.end(); iter++)
   {
-    ok = add_using_symbol(name, iter, false, false);
+    ok = add_using_symbol(name, iter, false, false, usingAlsoSpecial);
   }
   BObjByNameHash& prm = ns.Private();
   for(iter=prm.begin(); iter!=prm.end(); iter++)
   {
-    ok = add_using_symbol(name, iter, usingAlsoReadOnly, usingAlsoPrivate);
+    ok = add_using_symbol(name, iter, 
+     usingAlsoReadOnly, usingAlsoPrivate, usingAlsoSpecial);
   }
   return(ok);
@@ -1698,4 +1709,5 @@
       bool usingAlsoReadOnly = false;
       bool usingAlsoPrivate = false;
+      bool usingAlsoSpecial = false;
       if(lst && lst->Car())
       {
@@ -1708,5 +1720,10 @@
         lst = lst->Cdr();
       }
-      contens_ = BNameBlock::Using(uns_,usingAlsoReadOnly,usingAlsoPrivate); 
+      if(lst && lst->Car())
+      {
+        usingAlsoSpecial = Real(lst->Car())!=0.0;
+        lst = lst->Cdr();
+      }
+      contens_ = BNameBlock::Using(uns_,usingAlsoReadOnly,usingAlsoPrivate,usingAlsoSpecial); 
     }
   }
@@ -1722,9 +1739,10 @@
 
 //--------------------------------------------------------------------
-  DefExtOpr(1, BDatUsingNameBlock, "UsingNameBlock",1,3,
+  DefExtOpr(1, BDatUsingNameBlock, "UsingNameBlock",1,4,
   "NameBlock Real Real",
   "(NameBlock nameBlock [, "
     "Real usingAlsoReadOnly = False,"
-    "Real usingAlsoPrivate = False])",
+    "Real usingAlsoPrivate = False,"
+    "Real usingAlsoSpecial = False])",
   I2("In certain circumstances the public members of a NameBlock can "
      "pass to the global scope, that is to say, it is possible to "
@@ -1749,4 +1767,6 @@
      "If usingAlsoPrivate is true then private members will be "
      "also exported.\n"
+     "If usingAlsoSpecial is true then special members and methods "
+     "as StartActions of packages will be also exported.\n"
      ,
      "En determinadas circunstancias los miembros públicos de un "
@@ -1770,5 +1790,7 @@
      "también serán exportados.\n"
      "Si usingAlsoPrivate es cierto los miembros privados "
-     "también serán exportados.\n"),
+     "también serán exportados.\n"
+     "Si usingAlsoSpecial es cierto los miembros y métodos especiales "
+     "como StartActions también serán exportados.\n"),
   BOperClassify::System_);
 
Index: tol/btol/bgrammar/tol_bnameblock.h
===================================================================
--- tol/btol/bgrammar/tol_bnameblock.h	(revision e8b02037ee318518f0ba66fa84c1c9b54ba1ef89)
+++ tol/btol/bgrammar/tol_bnameblock.h	(revision 70a78b2092cdddd44e1835ec22bac3605eadfcfe)
@@ -103,5 +103,6 @@
     const BSyntaxObject* uns,
     bool usingAlsoReadOnly,
-    bool usingAlsoPrivate);
+    bool usingAlsoPrivate,
+    bool usingAlsoSpecial);
   static void Unusing(const BSyntaxObject* uns);
   static BSyntaxObject* LocalMember(const BText& memberName);
@@ -177,5 +178,6 @@
     BObjByNameHash::const_iterator iter,
     bool usingAlsoReadOnly,
-    bool usingAlsoPrivate
+    bool usingAlsoPrivate,
+    bool usingAlsoSpecial
   );
 };