Index: tol/btol/real_type/datgrav.cpp
===================================================================
--- tol/btol/real_type/datgrav.cpp	(revision 3623dec0bc7d64c3f25c5c8b8863697ab7d493d7)
+++ tol/btol/real_type/datgrav.cpp	(revision a9c6a361cdd2e08c8d542ca4e492d32c87967bbc)
@@ -522,5 +522,4 @@
   contens_ = d->Difference(f,l);
 }
-
 
 //--------------------------------------------------------------------
@@ -2838,2 +2837,20 @@
 }
 
+//--------------------------------------------------------------------
+  DeclareContensClass(BDat, BDatTemporary, BDatAreCompatibleTimeSet);
+  DefExtOpr(1, BDatAreCompatibleTimeSet, "AreCompatibleTimeSet", 4, 4, 
+  "TimeSet TimeSet Date Date",
+  "(TimeSet tms1, TimeSet tms2, Date from, Date until)",
+  I2("Returns true if two TimeSet are compatible in a time window.",
+     "Devuelve cierto si dos TimeSet son compatibles entre dos fechas."),
+     BOperClassify::TimeAlgebra_);
+  void BDatAreCompatibleTimeSet::CalcContens()
+//--------------------------------------------------------------------
+{
+  BUserTimeSet* a = Tms (Arg(1));
+  BUserTimeSet* b = Tms (Arg(2));
+  BDate&	f = Date(Arg(3));
+  BDate&	l = Date(Arg(4));
+  contens_ = a->IsCompatibleWith(*b,f,l);
+}
+