--- a/VariableNode.st	Mon Mar 05 13:35:01 2007 +0100
+++ b/VariableNode.st	Mon Mar 05 13:35:32 2007 +0100
@@ -919,7 +919,7 @@
     "Modified: / 19.10.1998 / 19:43:04 / cg"
 !
 
-isGlobal:nameWanted
+isGlobalNamed:nameWanted
     "return true, if this is a node for a particular global variable"
 
     ^ (type == #GlobalVariable) 
@@ -927,8 +927,7 @@
       and:[name isSymbol
       and:[Smalltalk includesKey:name]]]
 
-    "Created: / 04-03-2007 / 16:57:05 / cg"
-    "Modified: / 05-03-2007 / 13:34:53 / cg"
+    "Created: / 05-03-2007 / 13:35:07 / cg"
 !
 
 isGlobalVariable
@@ -977,5 +976,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.69 2007-03-05 12:35:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.70 2007-03-05 12:35:32 cg Exp $'
 ! !