--- a/Class.st	Tue May 28 20:49:35 2019 +0200
+++ b/Class.st	Tue May 28 21:11:40 2019 +0200
@@ -505,6 +505,7 @@
 ! !
 
 
+
 !Class methodsFor:'Compatibility-Dolphin'!
 
 defaultCategoryForDolphinClasses
@@ -1973,6 +1974,7 @@
     "Created: / 18-07-2011 / 09:14:38 / cg"
 ! !
 
+
 !Class methodsFor:'adding & removing'!
 
 removeFromSystem
@@ -3895,11 +3897,13 @@
 
 classResources
     self isPrivate ifTrue:[
-	^ self owningClass classResources
+        ^ self owningClass classResources
     ].
+    "/ thisContext isRecursive ifTrue:[^ ResourcePack new].
     ^ ResourcePack for:self cached:true.
 
     "Modified: / 18-09-2006 / 20:37:16 / cg"
+    "Modified: / 28-05-2019 / 19:08:12 / Claus Gittinger"
 !
 
 defaultCategoryForUncategorizedClasses