diff --git a/collects/mred/private/messagebox.ss b/collects/mred/private/messagebox.ss
index d7f8ddc1..c3e338d5 100644
--- a/collects/mred/private/messagebox.ss
+++ b/collects/mred/private/messagebox.ss
@@ -2,6 +2,7 @@
   (require (lib "class.ss")
 	   (lib "class100.ss")
 	   (lib "etc.ss")
+           (lib "string.ss")
 	   (prefix wx: "kernel.ss")
 	   "const.ss"
 	   "check.ss"
@@ -40,11 +41,7 @@
 			 l))
 		   style)
 
-      (let* ([strings (let loop ([s message])
-			(let ([m (regexp-match #rx"([^\n]*)[\n](.*)" s)])
-			  (if m
-			      (cons (cadr m) (loop (caddr m)))
-			      (list s))))]
+      (let* ([strings (regexp-split #rx"\n" message)]
 	     [single? (and (< (length strings) 10) 
 			   (andmap (lambda (s) (< (string-length s) 60)) strings))]
 	     [f (make-object (class100 dialog% ()