diff --git a/wst/trunk/base_service_intf.pas b/wst/trunk/base_service_intf.pas
index 2dffbced9..c0e27cfa8 100644
--- a/wst/trunk/base_service_intf.pas
+++ b/wst/trunk/base_service_intf.pas
@@ -41,6 +41,7 @@ type
   { standart data types defines }
   anyURI = type string;
   token = type string;
+  language = type string;   
   nonNegativeInteger = type LongWord;
   positiveInteger = type nonNegativeInteger;
   float = Single;
@@ -1778,7 +1779,8 @@ begin
   r.Register(sXSD_NS,TypeInfo(anyURI),'anyURI').AddPascalSynonym('anyURI');
   r.Register(sXSD_NS,TypeInfo(anyType_Type),'anyType').AddPascalSynonym('anyType_Type');
   r.Register(sXSD_NS,TypeInfo(schema_Type),'schema').AddPascalSynonym('schema_Type');
-  r.Register(sXSD_NS,TypeInfo(token),'token').AddPascalSynonym('token');
+  r.Register(sXSD_NS,TypeInfo(token),'token').AddPascalSynonym('token');    
+  r.Register(sXSD_NS,TypeInfo(language),'language').AddPascalSynonym('language');               
 
   r.Register(sXSD_NS,TypeInfo(boolean),'boolean').AddPascalSynonym('boolean');
 
diff --git a/wst/trunk/ws_helper/pascal_parser_intf.pas b/wst/trunk/ws_helper/pascal_parser_intf.pas
index 144cf276b..ea452e0be 100644
--- a/wst/trunk/ws_helper/pascal_parser_intf.pas
+++ b/wst/trunk/ws_helper/pascal_parser_intf.pas
@@ -460,6 +460,7 @@ begin
             AddClassDef(Result,'TArrayOfFloatCurrencyRemotable','TBaseSimpleTypeArrayRemotable');
 
     AddAlias('token','string',Result);
+    AddAlias('language','string',Result); 
     AddAlias('anyURI','string',Result);
     AddAlias('ID','string',Result);
     //AddAlias('float','Single',Result);