Index: /branches/working-0711/ccl/xdump/xfasload.lisp
===================================================================
--- /branches/working-0711/ccl/xdump/xfasload.lisp	(revision 7893)
+++ /branches/working-0711/ccl/xdump/xfasload.lisp	(revision 7894)
@@ -1070,4 +1070,7 @@
               (string (xload-save-string svnrev))
               (t *xload-target-nil*))))
+    (let* ((experimental-features *build-time-optional-features*))
+      (setf (xload-symbol-value (xload-copy-symbol '*optional-features*))
+            (xload-save-list (mapcar #'xload-copy-symbol experimental-features))))
                               
     (when *xload-show-cold-load-functions*