--- a/Method.st	Tue Apr 21 18:55:28 1998 +0200
+++ b/Method.st	Wed Apr 22 10:30:15 1998 +0200
@@ -2119,16 +2119,16 @@
      return the methods first resource specs key; either nil, 
      or a single symbol containing in Method>>resourceTypes."
 
-    self hasResource ifFalse:[^ nil].
-    self resources keysAndValuesDo:
-    [:key :val|
-        (self class resourceTypes includes:key) 
-        ifTrue:
-        [
-            ^key
-        ]
+    |resources|
+
+    (resources := self resources) notNil ifTrue:[
+        resources keysAndValuesDo:[:key :val|
+            (self class resourceTypes includes:key) ifTrue:[^key]
+        ].
     ].
-    ^nil
+    ^ nil
+
+    "Modified: / 22.4.1998 / 10:26:31 / cg"
 !
 
 resources
@@ -2523,6 +2523,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.159 1998-04-09 13:38:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.160 1998-04-22 08:30:15 cg Exp $'
 ! !
 Method initialize!