diff --git a/CHANGELOG.md b/CHANGELOG.md
index ee21e3df..fa4f3d98 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -20,6 +20,7 @@
 
 - D2 highlighter: for `Call()`, `Call` wont be considered anymore as a type. (#69)
 - GDB commander: 5 empty arguments were passed to the main function called by libc. (#86)
+- Symlist: errors were not visible enough since moved to the top. (#92)
 
 ## Other
 
diff --git a/src/u_symlist.pas b/src/u_symlist.pas
index eaee91d3..ad7b1f9a 100644
--- a/src/u_symlist.pas
+++ b/src/u_symlist.pas
@@ -837,6 +837,7 @@ var
   i: Integer;
   f: string;
   n: TTreeNode;
+  e: boolean = false;
 begin
   fLockThreadedParsing := false;
   if fDoc.isNotAssigned then
@@ -857,9 +858,17 @@ begin
   if fAutoExpandErrors then
   begin
     if ndWarn.Visible then
+    begin
       ndWarn.Expand(true);
+      ndWarn.MakeVisible();
+      e := true;
+    end;
     if ndErr.Visible then
+    begin
       ndErr.Expand(true);
+      ndErr.MakeVisible();
+      e := true;
+    end;
   end;
   if fSortSymbols then
     for i:= 0 to tree.Items.Count-1 do
@@ -870,7 +879,7 @@ begin
     if n.Count > 0 then
       n.CustomSort(nil);
   end;
-  if fSmartExpander then
+  if fSmartExpander and not e then
     smartExpand;
   if f.isNotEmpty then
     TreeFilterEdit1.Text := f;