diff --git a/motif/lisp/prototypes.lisp b/motif/lisp/prototypes.lisp
index ca925961a665232461ba931089250c443df8c64a..0d284fe1641577604e28b3f15f5d59f14a1cd809 100644
--- a/motif/lisp/prototypes.lisp
+++ b/motif/lisp/prototypes.lisp
@@ -703,7 +703,7 @@
   ((w widget))
   ((member t nil) fixnum fixnum))
 
-(def-toolkit-request "XmTextGetString" text-get-stringtring :confirm
+(def-toolkit-request "XmTextGetString" text-get-string :confirm
   "Accesses the string value of a Text widget."
   ((w widget)) (simple-string))