diff --git a/collects/embedded-gui/doc.txt b/collects/embedded-gui/doc.txt
index 6b76c337..f696e62c 100644
--- a/collects/embedded-gui/doc.txt
+++ b/collects/embedded-gui/doc.txt
@@ -324,6 +324,10 @@ _cue-text%_ is (cue-text-mixin text%)
   color : string = "gray"
   behavior : (listof (symbols 'on-focus 'on-char)) = '(on-focus)
 
+> (send a-cue-text clear-cue-text)
+
+Clears the cue text, if it's still present.
+
 ============================================================
 
 The following functions are useful for working with snips
diff --git a/collects/embedded-gui/private/cue-text.ss b/collects/embedded-gui/private/cue-text.ss
index 14fb8d94..7712f632 100644
--- a/collects/embedded-gui/private/cue-text.ss
+++ b/collects/embedded-gui/private/cue-text.ss
@@ -28,7 +28,7 @@
       
       #;(-> void)
       ;; Clears the cue-text if it's still there.
-      (define (clear-cue-text)
+      (define/public (clear-cue-text)
         (when first-focus?
           (set! first-focus? false)
           (erase)