Fix problem with using bundle? as a bundle predicate.

diff --git a/src/runtime/bundle.scm b/src/runtime/bundle.scm
index 091dd0ab9e471e99df29997badd5cf077f357505..fa2956cce22013540c883cd88c68ac4cbb25ccf1 100644 (file)
--- 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>))