--- a/Tools_MethodCategoryList.st	Fri Oct 02 10:44:40 2009 +0200
+++ b/Tools_MethodCategoryList.st	Fri Oct 02 11:19:21 2009 +0200
@@ -1244,11 +1244,13 @@
         ifAbsentPut:[
             |info|
 
-            info := CachedMethodInfo new.
-            info isObsolete:(aMethod isObsolete).
-            info sendsSuper:(aMethod superMessages notEmptyOrNil).
-            info isUncommented:(aMethod comment isEmptyOrNil and:[aMethod isVersionMethod not]).
-            info isDocumentationMethod:( aMethod isDocumentationMethod).
+            true "aMethod mclass language isSmalltalk" ifTrue:[
+                info := CachedMethodInfo new.
+                info isObsolete:(aMethod isObsolete).
+                info sendsSuper:(aMethod superMessages notEmptyOrNil).
+                info isUncommented:(aMethod comment isEmptyOrNil and:[aMethod isVersionMethod not]).
+                info isDocumentationMethod:( aMethod isDocumentationMethod).
+            ].
             info
         ]
 !
@@ -1447,5 +1449,9 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.31 2009-09-23 19:21:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.32 2009-10-02 09:19:21 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.32 2009-10-02 09:19:21 cg Exp $'
 ! !