From 2fcb65ec828813bd4650ce2bd941cf185ea3267b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 14 Jul 2014 15:48:07 +0100
Subject: [PATCH] meta/pkg-build: fix break-enabled status in VM-running thread

---
 pkgs/plt-services/meta/pkg-build/main.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/pkgs/plt-services/meta/pkg-build/main.rkt b/pkgs/plt-services/meta/pkg-build/main.rkt
index f49fdea2ce..06c6d57bc0 100644
--- a/pkgs/plt-services/meta/pkg-build/main.rkt
+++ b/pkgs/plt-services/meta/pkg-build/main.rkt
@@ -843,6 +843,7 @@
     (define done?-box (box #f))
     (define t (thread/chunk-output
                (lambda ()
+                 (break-enabled #t)
                  (status "Sending to ~a:\n" (vm-name vm))
                  (show-list pkgs)
                  (flush-chunk-output)