--- a/Class.st	Wed Jan 29 18:22:17 2020 +0100
+++ b/Class.st	Thu Jan 30 09:38:54 2020 +0100
@@ -4118,11 +4118,11 @@
     |pkg facility|
 
     ((pkg := self package ? '???') startsWith:'stx:') ifTrue:[
-        facility := 'stx'
+        facility := 'STX'
     ] ifFalse:[
         facility :=  pkg copyFrom:((pkg lastIndexOf:$:) + 1)
     ].
-    ^ facility,'.',self nameWithoutPrefix
+    ^ facility "/ ,'.',self nameWithoutPrefix
 
     "
      Array logFacility