--- a/SmallSense__ClassPO.st	Thu Aug 07 15:02:26 2014 +0100
+++ b/SmallSense__ClassPO.st	Thu Aug 07 16:48:17 2014 +0100
@@ -96,12 +96,17 @@
         showPrefix ifTrue:[
             label := klass name.
             (context notNil and:[klass isJavaClass]) ifTrue:[
-                context language isJava ifTrue:[
+                | lang |
+
+                lang := context language.
+                (lang notNil and:[lang isJava]) ifTrue:[
                     label := klass javaName
                 ] ifFalse:[
-                    context language isSmalltalk ifTrue:[
+                    (lang notNil and:[lang isSmalltalk]) ifTrue:[
                        label := 'JAVA ' , (klass  binaryName copyReplaceAll: $/ with: Character space)
-                     ]
+                     ] ifFalse:[ 
+                        label := klass nameWithoutNameSpacePrefix.
+                     ].
                 ]
             ].
         ] ifFalse:[
@@ -112,7 +117,7 @@
     ^label
 
     "Created: / 20-05-2014 / 11:29:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-07-2014 / 17:30:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-08-2014 / 16:19:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 showPrefix