--- a/Tools_ClassCategoryList.st	Thu Aug 24 23:13:07 2006 +0200
+++ b/Tools_ClassCategoryList.st	Thu Aug 24 23:13:13 2006 +0200
@@ -558,7 +558,7 @@
 
 listOfCategories
     |categories hideUnloadedClasses generator nameSpaceFilter packageFilter allName
-     categoriesWithExtensions categoriesWithChangedCode classesInCangeSet|
+     categoriesWithExtensions categoriesWithChangedCode classesInChangeSet|
 
     allName := self class nameListEntryForALL.
 
@@ -576,8 +576,8 @@
     categoriesWithExtensions := Set new.
     categoriesWithChangedCode := Set new.
 
-    classesInCangeSet := ChangeSet current changedClasses.
-    classesInCangeSet := classesInCangeSet collect:[:eachClass | eachClass theNonMetaclass].
+    classesInChangeSet := ChangeSet current changedClasses.
+    classesInChangeSet := classesInChangeSet collect:[:eachClass | eachClass theNonMetaclass].
 
     classes := IdentitySet new.
     inGeneratorHolder isNil ifTrue:[
@@ -596,7 +596,7 @@
                             categories add:cat.
                             classes add:cls.
 
-                            (classesInCangeSet includes:cls theNonMetaclass) ifTrue:[
+                            (classesInChangeSet includes:cls theNonMetaclass) ifTrue:[
                                 categoriesWithChangedCode add:cat
                             ] ifFalse:[
                                 cls hasExtensions ifTrue:[
@@ -802,5 +802,5 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.14 2006-08-23 17:33:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.15 2006-08-24 21:13:13 cg Exp $'
 ! !