--- a/SelectionInListView.st	Fri Apr 19 17:52:39 1996 +0200
+++ b/SelectionInListView.st	Fri Apr 19 18:23:58 1996 +0200
@@ -1686,10 +1686,20 @@
 !
 
 doubleClicked
+    |arg|
+
+    selection isNil ifTrue:[
+        "/ can only happen if claus modifies the selection within
+        "/ the selectAction ....
+        ^ self
+    ].
+
     doubleClickActionBlock notNil ifTrue:[doubleClickActionBlock value:selection].
     (model notNil and:[doubleClickMsg notNil]) ifTrue:[
-	self sendChangeMessage:doubleClickMsg with:(self argForChangeMessage).
+        self sendChangeMessage:doubleClickMsg with:(self argForChangeMessage).
     ].
+
+    "Modified: 19.4.1996 / 18:23:14 / cg"
 !
 
 key:key select:index x:x y:y
@@ -2710,5 +2720,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.63 1996-03-21 16:43:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.64 1996-04-19 16:23:58 cg Exp $'
 ! !