--- a/LinkButton.st	Wed Sep 13 18:13:12 2017 +0200
+++ b/LinkButton.st	Wed Sep 13 18:20:48 2017 +0200
@@ -252,10 +252,10 @@
 !LinkButton methodsFor:'private'!
 
 actionEmphasisIn:aText atPoint:aPoint
-    "check for an actionBlock-emphasis in aString at aPoint.
+    "check for an actionBlock-emphasis in aText at aPoint.
      Answer an Array with the whole emphasis and the actionBlock,
      or nil"
-    
+
     |emphasis|
 
     emphasis := aText emphasisAtPoint:aPoint on:self.
@@ -268,14 +268,16 @@
         ].
         ^ #(nil nil).
     ].
-    emphasis detect:[:eachElement|
+    emphasis do:[:eachElement|
         eachElement isAssociation ifTrue:[
             eachElement key == #actionBlock ifTrue:[
                 ^ Array with:emphasis with:eachElement value.
             ].
         ].
-    ] ifNone:[].
+    ].
     ^ #(nil nil).
+
+    "Modified: / 13-09-2017 / 18:14:58 / mawalch"
 !
 
 labelsAndActionsWithPositionsDo:aFourArgBlock