--- a/FlyByHelp.st	Fri Feb 21 12:21:31 2020 +0100
+++ b/FlyByHelp.st	Fri Feb 21 19:13:20 2020 +0100
@@ -922,7 +922,18 @@
 
     "/ Transcript showCR:helpTextShown storeString.
     helpTextShown isEmptyOrNil ifTrue:[^ self].
-    
+
+    false ifTrue:[
+        [
+            |voice|
+
+            voice := OperatingSystem bestVoiceForLanguage:(Smalltalk language).
+            helpTextShown asCollectionOfLines do:[:eachLine |
+                OperatingSystem speak:eachLine voiceName:voice.
+            ]
+        ] fork.
+    ].
+
     org := view originRelativeTo:nil.
     currentFrame := org extent:view extent.
     org := org + (view extent // 2).