diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index de283d13ff..9d1446cda8 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -40,7 +40,8 @@
 	   "private/repl.ss"
 	   "private/afm.ss"
            "private/helper.ss"
-           "private/dynamic.ss")
+           "private/dynamic.ss"
+           "private/check.ss")
 
   ;; Initialize AFM/PS:
   (wx:set-ps-procs
@@ -318,4 +319,5 @@
 	   current-ps-afm-file-paths
 	   current-ps-cmap-file-paths
 	   hide-cursor-until-moved
-           system-position-ok-before-cancel?))
+           system-position-ok-before-cancel?
+           label-string?))
diff --git a/collects/scribblings/gui/miscwin-funcs.scrbl b/collects/scribblings/gui/miscwin-funcs.scrbl
index 8ea9a03881..69fc36a6cf 100644
--- a/collects/scribblings/gui/miscwin-funcs.scrbl
+++ b/collects/scribblings/gui/miscwin-funcs.scrbl
@@ -470,3 +470,6 @@ If @scheme[value] is an integer outside a platform-specific range,
 
 See also @scheme[get-resource].}
 
+@defproc[(label-string? [v any/c]) boolean?]{
+  Returns @scheme[#t] if @scheme[v] is a string whose length is less than or equal to @scheme[200].                                             
+}
\ No newline at end of file