From 706a8166490c2d3d1b04df1ae623b6ecef242a2d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 5 Jan 2019 18:12:26 -0800
Subject: [PATCH] Fix problem with using bundle? as a bundle predicate.

---
 src/runtime/bundle.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/runtime/bundle.scm b/src/runtime/bundle.scm
index 091dd0ab9..fa2956cce 100644
--- a/src/runtime/bundle.scm
+++ b/src/runtime/bundle.scm
@@ -78,6 +78,10 @@ USA.
 (define <bundle>
   (new-make-record-type '<bundle> '(alist)))
 
+(defer-boot-action 'record-procedures
+  (lambda ()
+    (set-record-type-applicator! <bundle> %bundle-applicator)))
+
 (define bundle?
   (record-predicate <bundle>))
 
-- 
2.25.1