diff --git a/source/main.pas b/source/main.pas
index 0e942033..2735182e 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -5471,6 +5471,7 @@ var
   LogIt: Boolean;
   LogItem: TDBLogItem;
 begin
+  OldSettingsPath := AppSettings.SessionPath;
   LogItem := TDBLogItem.Create;
   LogItem.Category := Category;
   if AppSettings.ReadBool(asLogTimestamp) then
@@ -5485,8 +5486,6 @@ begin
   if csDestroying in ComponentState then
     Exit;
 
-  OldSettingsPath := AppSettings.SessionPath;
-
   for LogItem in PostponedLogItems do begin
 
     // Log only wanted events