diff --git a/source/connections.pas b/source/connections.pas
index ca9d7e7d..dc502b3d 100644
--- a/source/connections.pas
+++ b/source/connections.pas
@@ -198,6 +198,7 @@ type
       CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
     procedure actFilterExecute(Sender: TObject);
     procedure timerEditFilterDelayTimer(Sender: TObject);
+    procedure chkSSHActiveClick(Sender: TObject);
   private
     { Private declarations }
     FLoaded: Boolean;
@@ -1204,6 +1205,13 @@ begin
 end;
 
 
+procedure Tconnform.chkSSHActiveClick(Sender: TObject);
+begin
+  if (comboSSHExe.Text = '') and (comboSSHExe.Items.Count > 0) then
+    comboSSHExe.ItemIndex := 0;
+  Modification(Sender);
+end;
+
 procedure Tconnform.ColorBoxBackgroundColorGetColors(Sender: TCustomColorBox;
   Items: TStrings);
 var