diff --git a/src/Pyramid/PyramidSinglePopingPresenterBuilder.class.st b/src/Pyramid/PyramidSinglePopingPresenterBuilder.class.st
index 17d6ce5..0ff8e91 100644
--- a/src/Pyramid/PyramidSinglePopingPresenterBuilder.class.st
+++ b/src/Pyramid/PyramidSinglePopingPresenterBuilder.class.st
@@ -98,7 +98,7 @@ PyramidSinglePopingPresenterBuilder >> buildPresenterWithButtonsFor: anAssociati
 			                    self property commandExecutor
 				                    use: self property command
 				                    on: self cluster allTargets
-				                    with: input value ].
+				                    with: input value value ].
 	layout := self
 		          layoutForLabel: aString
 		          input: input