--- a/SmallSense__ClassPO.st	Wed Nov 14 13:09:49 2018 +0100
+++ b/SmallSense__ClassPO.st	Thu Jan 17 09:27:00 2019 +0000
@@ -114,15 +114,18 @@
         ] ifFalse:[
             label := klass nameWithoutNameSpacePrefix.
         ].
-        (ChangeSet current includesChangeForClass: klass) ifTrue:[ 
-            label := label asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)         
+    ].
+    (ChangeSet current includesChangeForClass: klass) ifTrue:[ 
+        label := label asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)         
+    ] ifFalse:[ 
+        label isText ifTrue:[ 
+            label := label string.
         ].
     ].
-
-    ^label
+    ^ label
 
     "Created: / 20-05-2014 / 11:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-11-2015 / 07:28:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-01-2019 / 23:53:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 showPrefix