diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index 8b1640a1..cb0f4c22 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -377,10 +377,10 @@ begin
     begin
       if fDoc.isDSource then
       begin
-        fErrList.Clear;
-        fTokList.Clear;
         lex(fDoc.Lines.Text, fTokList, @lexFindToken);
         md := getModuleName(fTokList);
+        fTokList.Clear;
+        fErrList.Clear;
       end;
       if md = '' then md := extractFileName(fDoc.fileName);
       pageControl.ActivePage.Caption := md;
@@ -414,10 +414,10 @@ begin
   md := '';
   if fDoc.isDSource then
   begin
-    fTokList.Clear;
-    fErrList.Clear;
     lex(fDoc.Lines.Text, fTokList, @lexFindToken);
     md := getModuleName(fTokList);
+    fTokList.Clear;
+    fErrList.Clear;
   end;
   if md = '' then md := extractFileName(fDoc.fileName);
   pageControl.ActivePage.Caption := md;