diff --git a/src/NewTools-Inspector/StObjectContextPresenter.class.st b/src/NewTools-Inspector/StObjectContextPresenter.class.st
index 2eddb1ffc..a156036ac 100644
--- a/src/NewTools-Inspector/StObjectContextPresenter.class.st
+++ b/src/NewTools-Inspector/StObjectContextPresenter.class.st
@@ -39,7 +39,7 @@ StObjectContextPresenter >> doEvaluateAndGo [
 		onCompileError: [ ^ self ]
 		onError: [ :e | e pass ].
 	
-	activationBlock value: value
+	activationBlock value: (StEvaluatedSelectionModel newValue: value)
 ]
 
 { #category : #private }