fix access violation

HealthIntersections · Oct 17, 2024 · 01fbd35 · 01fbd35
1 parent 350e8ec
commit 01fbd35
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/server/tx_server.pas b/server/tx_server.pas
@@ -755,7 +755,7 @@ function TTerminologyServer.workerGetDefinition(sender: TObject; url, version: S
 
 function TTerminologyServer.workerGetExpansion(sender: TObject; opContext : TTerminologyOperationContext; url, version, filter: String; params: TFHIRTxOperationParams; dependencies: TStringList; additionalResources : TFslMetadataResourceList; limit: integer; noCacheThisOne : boolean): TFHIRValueSetW;
 begin
-  result := expandVS(opContext.reqId, url, version, params, opContext, filter, dependencies, limit, -1, -1, additionalResources, noCacheThisOne, false, nil);
+  result := expandVS(opContext.reqId, url, version, params, opContext, filter, dependencies, limit, -1, -1, additionalResources, noCacheThisOne, false, opContext.TimeTracker);
 end;
 
 function TTerminologyServer.workerGetProvider(sender: TObject; url, version: String; params: TFHIRTxOperationParams; nullOk : boolean): TCodeSystemProvider;