--- a/DialogBox.st	Tue Nov 08 13:30:03 2011 +0100
+++ b/DialogBox.st	Tue Nov 08 13:30:26 2011 +0100
@@ -5188,7 +5188,7 @@
                                         ifFalse:[ listView selection collect:[:idx | listValues at:idx]].
                 val := buttonValues at:index.
                 val isBlock ifTrue:[ 
-                    val := val valueWithOptionalArgument:selectionValues and:box
+                    val := val valueWithOptionalArgument:selectionValues and:box and:listView selection
                 ] ifFalse:[
                     multiple ifTrue:[
                         val := Array with:val
@@ -9664,11 +9664,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.319 2011-11-08 12:30:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.320 2011-11-08 12:30:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.319 2011-11-08 12:30:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.320 2011-11-08 12:30:26 cg Exp $'
 ! !
 
 DialogBox initialize!