Index: uniteditor.pp
===================================================================
--- uniteditor.pp	(revision 9669)
+++ uniteditor.pp	(working copy)
@@ -5014,7 +5014,6 @@
     Notebook.Pages.Delete(PageIndex);
     //writeln('TSourceNotebook.CloseFile C  PageIndex=',PageIndex,' Notebook.PageCount=',Notebook.PageCount);
     UpdateStatusBar;
-    ActiveControl:=Notebook.Page[Notebook.PageIndex];
   end else
   begin
     //writeln('TSourceNotebook.CloseFile D  PageIndex=',PageIndex);