--- a/Method.st	Wed Dec 01 13:46:14 2010 +0100
+++ b/Method.st	Wed Dec 01 14:00:17 2010 +0100
@@ -2040,13 +2040,15 @@
 hasResource:aSymbol
     "return true if the method has a <resource> definition for aSymbol."
 
-    ^ self hasResource and:[ self resources includesKey:aSymbol ]
+    ^ self hasResource and:[ (self resources ? #()) includesKey:aSymbol ]
 
     "
      Method allInstancesDo:[:m |
         (m hasResource:#image) ifTrue:[self halt]
      ].
     "
+
+    "Modified: / 01-12-2010 / 13:59:58 / cg"
 !
 
 homeMethod
@@ -2572,6 +2574,8 @@
 
     self hasResource ifFalse:[^ nil].
     ^ self parseResources.
+
+    "Modified: / 01-12-2010 / 13:59:48 / cg"
 !
 
 selector
@@ -3005,11 +3009,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.353 2010-10-22 10:37:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.354 2010-12-01 13:00:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.353 2010-10-22 10:37:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.354 2010-12-01 13:00:17 cg Exp $'
 ! !
 
 Method initialize!