diff --git a/source/childwin.pas b/source/childwin.pas
index b6239b98..74a44502 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -481,7 +481,6 @@ type
       procedure WaitForQueryCompletion(WaitForm: TForm);
       function RunThreadedQuery(AQuery : String) : TMysqlQuery;
       procedure DisplayRowCountStats(ds: TDataSet);
-      procedure EnsureActiveDatabase;
 
     public
       ActualDatabase             : String;
@@ -511,6 +510,7 @@ type
       function RefreshActiveDbTableList: TDataSet;
       procedure ClearAllTableLists;
       procedure UpdateTreeTableList;
+      procedure EnsureActiveDatabase;
   end;