diff --git a/collects/framework/exit.ss b/collects/framework/exit.ss
index 8b054a13..0bfb0fb4 100644
--- a/collects/framework/exit.ss
+++ b/collects/framework/exit.ss
@@ -1,5 +1,6 @@
 (unit/sig framework:exit^
-  (import [preferences : framework:preferences^]
+  (import mred^
+          [preferences : framework:preferences^]
 	  [gui-utils : framework:gui-utils^])
   (rename (-exit exit))
   
@@ -54,5 +55,5 @@
 	(set! exiting? #t)
 	(when (can-exit?)
 	  (on-exit)
-	  (exit))
+	  (queue-callback (lambda () (exit))))
 	(set! exiting? #f)))))
\ No newline at end of file