diff --git a/src/ResourcesLive-GToolkit/RlhOCRElement.class.st b/src/ResourcesLive-GToolkit/RlhOCRElement.class.st
index e9548ce..fd6a450 100644
--- a/src/ResourcesLive-GToolkit/RlhOCRElement.class.st
+++ b/src/ResourcesLive-GToolkit/RlhOCRElement.class.st
@@ -30,10 +30,8 @@ RlhOCRElement >> addShortcuts [
 		shortcut := BlShortcut new
 			combination: keyCombo;
 			action: [ :anEvent :aShortcut | 
-				| selectedText |
-				selectedText := (self selection first userData at: #node) string.
 				self client
-					write: (desc fromString: selectedText) 
+					write: (desc fromString: self selectedText) 
 					using: desc. ].
 		self addShortcut: shortcut ]
 ]
@@ -85,6 +83,11 @@ RlhOCRElement >> initialize [
 		requestFocus.
 ]
 
+{ #category : #accessing }
+RlhOCRElement >> selectedText [
+	^ (self selection first userData at: #node) string
+]
+
 { #category : #accessing }
 RlhOCRElement >> selection [
 	^ self selectionHandler selected_hOCR