--- a/ProgrammingLanguage.st	Thu Dec 03 12:09:04 2009 +0100
+++ b/ProgrammingLanguage.st	Fri Dec 04 12:21:32 2009 +0100
@@ -130,10 +130,13 @@
 
 !ProgrammingLanguage class methodsFor:'enumerating'!
 
-allDo: aBlock
+allDetect:aBlock ifNone:exceptionValue
+    self allDo:[:each | (aBlock value:each) ifTrue:[^ each]].
+    ^ exceptionValue value
+!
 
-    ^self allSubclassesDo:
-        [:each|aBlock value: each instance]
+allDo: aBlock
+    ^ self allSubclassesDo: [:each | aBlock value: each instance]
 
     "Created: / 16-08-2009 / 14:07:40 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
@@ -351,11 +354,11 @@
 !ProgrammingLanguage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.9 2009-10-08 12:00:30 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.10 2009-12-04 11:21:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.9 2009-10-08 12:00:30 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.10 2009-12-04 11:21:32 cg Exp $'
 !
 
 version_SVN