diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp
index 9f1aa3a0b2..4e50219c88 100644
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@@ -3421,8 +3421,10 @@ Begin
   TempEditor:=GetActiveSE;
   if TempEditor <> nil then
   begin
-    //writeln('TSourceNotebook.NotebookPageChanged ',
-    //  NoteBook.Pages[FindPageWithEditor(TempEditor)]);
+    {$IFDEF VerboseFocus}
+    writeln('TSourceNotebook.NotebookPageChanged ',
+      NoteBook.Pages[FindPageWithEditor(TempEditor)]);
+    {$ENDIF}
     TempEditor.FocusEditor;
     UpdateStatusBar;
     UpdateActiveEditColors;