Fix problem with using bundle? as a bundle predicate.

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