Index: WS/Transsmart/impl/TboxServicePort.cls.xml
===================================================================
diff -u -r60535 -r62574
--- WS/Transsmart/impl/TboxServicePort.cls.xml	(.../TboxServicePort.cls.xml)	(revision 60535)
+++ WS/Transsmart/impl/TboxServicePort.cls.xml	(.../TboxServicePort.cls.xml)	(revision 62574)
@@ -48,7 +48,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ##super(Logger)
-	Set ..Timeout = 45
+	Set ..Timeout = 120
 	Do ..HeadersOut.SetAt(..GeefAuthenticationHeader(),1)
 	Quit $$$OK
 ]]></Implementation>
@@ -78,11 +78,16 @@
 <Implementation><![CDATA[
 	Do ..LogHeaders("Transsmart doBooking headers")	
 	Do ..LogXmlAsStream("Transsmart doBooking request",doBooking)
+	#dim Begin as %Date = $H
 	Try{
 		#dim Response as WS.Transsmart.tns.getStatusResponse = ..WebMethod("doBooking").Invoke($this,"",.doBooking)
 	} catch {
+		#dim Einde as %Date = $H
+		Do ..Logger.Info("Transsmart doBooking request duur","Request faalt na " _  $p(Einde,",",2)-$p(Begin,",",2) _ " sec.")
 		Do ..RaiseException($$$CurrentMethod)
 	}
+	Set Einde = $H
+	Do ..Logger.Info("Transsmart doBooking request duur","Request duur : " _  $p(Einde,",",2)-$p(Begin,",",2) _ " sec.")
 	Do ..LogXmlAsStream("Transsmart doBooking response",Response)
 	Quit Response
 ]]></Implementation>