--- a/ApplicationModel.st	Thu Mar 11 12:55:25 2004 +0100
+++ b/ApplicationModel.st	Fri Mar 12 13:28:38 2004 +0100
@@ -494,11 +494,10 @@
 !ApplicationModel class methodsFor:'resources'!
 
 classResources
-    "if not already loaded, get the classes resourcePack
-     and return it"
+    "if not already loaded, get the classes resourcePack and return it"
 
     ClassResources isNil ifTrue:[
-	ClassResources := ResourcePack for:self.
+        ClassResources := super classResources.
     ].
     ^ ClassResources
 !
@@ -2735,7 +2734,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.197 2004-02-24 13:27:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.198 2004-03-12 12:28:38 cg Exp $'
 ! !
 
 ApplicationModel initialize!