--- a/ProjectDefinition.st	Wed May 30 12:39:23 2007 +0200
+++ b/ProjectDefinition.st	Wed May 30 12:46:17 2007 +0200
@@ -2944,17 +2944,22 @@
 addReferencesToClassesFromGlobalsInMethods:someMethods to:usedClassReasons
     someMethods do:[:method | 
         method usedGlobals 
-            do:[:global | |usedClass|        
-                usedClass := Smalltalk at: global asSymbol. 
-                (usedClass notNil and:[usedClass isClass and:[usedClass isNameSpace not]]) 
-                    ifTrue:[
-                        (usedClassReasons at: usedClass ifAbsentPut:[Set new])
-                            add: (usedClass name, ' - referenced by ', method mclass name,'>>',method selector)
+            do:[:global | 
+                |globalsName usedClass|        
+
+                globalsName := global asSymbol.
+                usedClass := Smalltalk at:globalsName. 
+                (usedClass notNil and:[usedClass isClass and:[usedClass isNameSpace not]]) ifTrue:[
+                    usedClass name == globalsName ifTrue:[ "/ skip aliases
+                        (usedClassReasons at:usedClass ifAbsentPut:[Set new])
+                            add:(usedClass name, ' - referenced by ', method mclass name,'>>',method selector)
                     ]
+                ]
             ]
     ]
 
     "Created: / 10-10-2006 / 23:00:07 / cg"
+    "Modified: / 30-05-2007 / 12:48:30 / cg"
 !
 
 classNamesAndAttributesDo: aBlock
@@ -3787,7 +3792,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.159 2007-05-29 16:06:03 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.160 2007-05-30 10:46:17 cg Exp $'
 ! !
 
 ProjectDefinition initialize!