diff --git a/src/Spec2-Core/SpAbstractTextPresenter.class.st b/src/Spec2-Core/SpAbstractTextPresenter.class.st
index 603afbf0..f8c5e6c6 100644
--- a/src/Spec2-Core/SpAbstractTextPresenter.class.st
+++ b/src/Spec2-Core/SpAbstractTextPresenter.class.st
@@ -237,8 +237,8 @@ SpAbstractTextPresenter >> registerEvents [
 { #category : 'api - selection' }
 SpAbstractTextPresenter >> selectAll [
 	"Select all text"
-	
-	self withAdapterDo: [ :anAdapter | anAdapter selectAll ]
+
+	self selectionInterval: (1 to: self text size)
 ]
 
 { #category : 'api - selection' }