diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index 64f9daa9..6ebed212 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -1335,7 +1335,7 @@ begin
   // Prompt for password on initial connect
   if FParameters.LoginPrompt and (not FLoginPromptDone) then begin
     Dialog := TfrmLogin.Create(Self);
-    Dialog.Caption := FParameters.SessionName;
+    Dialog.Caption := APPNAME + ' - ' + FParameters.SessionName;
     Dialog.lblPrompt.Caption := f_('Login to %s:', [FParameters.Hostname]);
     Dialog.editUsername.Text := FParameters.Username;
     Dialog.editPassword.Text := FParameters.Password;