diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 71f4592a..82dd2ef5 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -7603,7 +7603,8 @@
 				    v)
 				  (make-semaphore-peek lock-semaphore)))))
 		      #f ; no peek
-		      close)])
+		      close
+                      text)])
 	  (if (is-a? snip wx:string-snip%)
 	      ;; Specilal handling for initial snip string in case
 	      ;;  it starts too early: