diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index 864fb878..d2a8fc48 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -46,7 +46,6 @@
 			  (make-object pasteboard%)))]
 	    [on-new-box
 	     (lambda (type)
-	       (wx:message-box (format "insert-box ~a" type))
 	       (cond
 		 [(= type wx:const-edit-buffer)
 		  (get-edit-snip)]