--- a/Tools__VariableList.st	Wed Oct 17 23:01:36 2018 +0200
+++ b/Tools__VariableList.st	Sun Oct 21 19:42:24 2018 +0200
@@ -707,7 +707,11 @@
                         classShown ifFalse:[ entry classShown:classShown ].
                     ].
                     groupByInheritance ifTrue:[
-                        nameList addFirst:(("'----- ' , "cls nameInBrowser" , ' -----'") withColor: Color gray).
+                        cls isAbstract ifTrue:[
+                            nameList addFirst:((cls nameInBrowser, ' (abstract)') allItalic withColor: Color gray).
+                        ] ifFalse:[    
+                            nameList addFirst:((cls nameInBrowser) withColor: Color gray).
+                        ]
                     ]
                 ].
             ].