diff --git a/src/Spec-Toplo/SpToploAbstractTextAdapter.class.st b/src/Spec-Toplo/SpToploAbstractTextAdapter.class.st
index 1a6f2a1..9fabfff 100644
--- a/src/Spec-Toplo/SpToploAbstractTextAdapter.class.st
+++ b/src/Spec-Toplo/SpToploAbstractTextAdapter.class.st
@@ -143,6 +143,7 @@ SpToploAbstractTextAdapter >> text: aString [
 { #category : #simulating }
 SpToploAbstractTextAdapter >> typeByChar: aString [ 
 	
+	widget requestFocus.
 	BlSpace simulateTextInput: aString on: widget
 ]