--- a/Class.st	Wed Jan 29 14:16:29 2020 +0100
+++ b/Class.st	Wed Jan 29 14:59:16 2020 +0100
@@ -1981,6 +1981,7 @@
     "Created: / 18-07-2011 / 09:14:38 / cg"
 ! !
 
+
 !Class methodsFor:'adding & removing'!
 
 removeFromSystem
@@ -4114,21 +4115,23 @@
      if the class is anywhere in the base ST/X system, 'STX' is returned as facility.
      Otherwise, the last component of the package name is returned."
      
-    |pkg|
+    |pkg facility|
 
     ((pkg := self package ? '???') startsWith:'stx:') ifTrue:[
-        ^ 'STX'
+        facility := 'stx'
+    ] ifFalse:[
+        facility :=  pkg copyFrom:((pkg lastIndexOf:$:) + 1)
     ].
-    ^ pkg copyFrom:((pkg lastIndexOf:$:) + 1)
-
-    "
-     Array logFacility
-     Array class logFacility
+    ^ facility,'.',self nameWithoutPrefix
+
+    "
+     Array logFacility           
+     Array class logFacility     
      Class new logFacility
      Behavior new logFacility
 
-     Expecco::Browser logFacility
-     Workflow::Executor logFacility
+     Expecco::Browser logFacility  
+     Workflow::Executor logFacility 
 
      Array package
      Array class package