--- a/Tools_MethodCategoryList.st	Wed Jul 06 12:14:01 2005 +0200
+++ b/Tools_MethodCategoryList.st	Wed Jul 06 13:31:06 2005 +0200
@@ -1198,6 +1198,10 @@
     lastSelectedProtocols := nil
 !
 
+lastSelectedProtocols
+    ^ lastSelectedProtocols
+!
+
 removeAdditionalProtocol:aListOfProtocols forClass:aClass
     |categories|
 
@@ -1254,5 +1258,5 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.4 2004-07-15 12:23:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.5 2005-07-06 11:31:06 cg Exp $'
 ! !