--- a/SelectionInListView.st	Thu Apr 14 19:51:43 2016 +0200
+++ b/SelectionInListView.st	Sun Apr 17 14:49:52 2016 +0200
@@ -2679,10 +2679,22 @@
                 s := self characterSearchItemStringAt:searchIndex.
                 s notNil ifTrue:[
                     (s string withoutSeparators asLowercase startsWith:searchPrefix) ifTrue:[
+                        |selectable didAskInteractively|
+                        
                         searchIndex = selection ifTrue:[^ self].
-                        (selectConditionBlock isNil or:[(selectConditionBlock value:searchIndex)]) ifTrue:[
+                        Dialog aboutToOpenBoxNotificationSignal
+                            handle:[:ex |
+                                didAskInteractively := true.
+                                selectable := false.
+                            ] do:[    
+                                didAskInteractively := false.
+                                selectable := selectConditionBlock isNil or:[(selectConditionBlock value:searchIndex)].
+                            ].
+                            
+                        selectable ifTrue:[
                             ^ self key:key select:searchIndex x:x y:y shifted:false
                         ].
+                        didAskInteractively ifTrue:[^ self]. "/ ignore
                     ].
                 ].
                 backSearch ifTrue:[