--- a/SelectionInListModelView.st	Fri Dec 14 11:53:34 2001 +0100
+++ b/SelectionInListModelView.st	Fri Dec 14 11:55:39 2001 +0100
@@ -470,13 +470,8 @@
     ].
 
     actionBlock notNil ifTrue:[
-        (actionBlock numArgs) == 1 ifTrue:[
-            actionBlock value:arg
-        ] ifFalse:[
-            actionBlock value
-        ]
+        actionBlock valueWithOptionalArgument:arg
     ].
-
 !
 
 update:something with:aParameter from:changedObject
@@ -1672,5 +1667,5 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.45 2001-11-19 15:27:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.46 2001-12-14 10:55:39 cg Exp $'
 ! !