--- a/Method.st	Tue Aug 15 16:34:03 2000 +0200
+++ b/Method.st	Tue Aug 15 16:34:33 2000 +0200
@@ -2357,10 +2357,21 @@
 
 !
 
+usedGlobals
+    "return a collection with the global names referred to by the receiver.
+     Uses Parser to parse methods source and extract them."
+
+    ^ self parse:#'parseMethodSilent:' return:#usedGlobals or:#() 
+
+    "
+     (Method compiledMethodAt:#resources) usedGlobals 
+    "
+!
+
 usedSymbols
     "return a collection with the symbols referred to by the receiver.
      Uses Parser to parse methods source and extract them.
-     This collection on;y includes implicit symbols references (i.e. not
+     This collection only includes implicit symbols references (i.e. not
      messages sent)"
 
     ^ self parse:#'parseMethodSilent:' return:#usedSymbols or:#() 
@@ -2727,6 +2738,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.196 2000-08-09 20:38:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.197 2000-08-15 14:34:33 cg Exp $'
 ! !
 Method initialize!