--- a/Tools_MethodCategoryList.st	Thu Oct 29 10:00:32 2009 +0100
+++ b/Tools_MethodCategoryList.st	Thu Oct 29 11:29:32 2009 +0100
@@ -1457,7 +1457,7 @@
 
     |src ast linesWithCode visitor|
 
-    src := aMethod source.
+    src := aMethod source ? ''.
     src asCollectionOfLines size < UserPreferences current numberOfLinesForLongMethod "~~30" ifTrue:[^ false].
 
     "/ ok, it is long;
@@ -1737,11 +1737,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.48 2009-10-26 17:28:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.49 2009-10-29 10:29:32 mb Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.48 2009-10-26 17:28:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.49 2009-10-29 10:29:32 mb Exp $'
 ! !
 
 MethodCategoryList initialize!