--- a/Tools_BrowserList.st	Thu Jan 17 11:40:20 2013 +0100
+++ b/Tools_BrowserList.st	Thu Jan 17 11:40:57 2013 +0100
@@ -1613,6 +1613,7 @@
 !BrowserList::SearchHandler methodsFor:'event handling'!
 
 keyPress:key x:x y:y view:aView
+    <resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)>
 
     | v |
 
@@ -1662,6 +1663,7 @@
 !BrowserList::SearchHandler methodsFor:'event handling-queries'!
 
 handlesKeyPress:key inView:aView
+    <resource: #keyboard (#Escape #Accept #Return #CursorUp #CursorDown)>
 
     aView == listView ifTrue:[
         key isCharacter ifTrue:[
@@ -1669,7 +1671,7 @@
         ]
     ].
     aView == searchField ifTrue:[
-        (#(#Escape #Accept #Return #CursorUp CursorDown) includes: key) ifTrue:[
+        (#(#Escape #Accept #Return #CursorUp #CursorDown) includes: key) ifTrue:[
             ^true
         ]
     ].
@@ -1872,9 +1874,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.54 2012-12-12 15:38:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.55 2013-01-17 10:40:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.54 2012-12-12 15:38:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.55 2013-01-17 10:40:57 cg Exp $'
 ! !
+