diff --git a/books/bookvol5.pamphlet b/books/bookvol5.pamphlet
index 73cb801..495be02 100644
--- a/books/bookvol5.pamphlet
+++ b/books/bookvol5.pamphlet
@@ -447,6 +447,8 @@ information is initialized.
#+:akcl (setq compiler::*compile-verbose* nil)
#+:akcl (setq compiler::*suppress-compiler-warnings* t)
#+:akcl (setq compiler::*suppress-compiler-notes* t)
+#+:akcl (setq si::*system-directory*
+ (concatenate 'string (getenviron "AXIOM") "/bin"))
(in-package "BOOT")
(initroot)
#+:akcl
diff --git a/changelog b/changelog
index 7e397cc..598e64e 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090413 tpd src/axiom-website/patches.html 20090413.03.tpd.patch
+20090413 tpd books/bookvol5 fix 7191, set *system-directory* dynamically
20090413 tpd src/axiom-website/patches.html 20090413.02.tpd.patch
20090413 tpd src/interp/sockio.lisp move interpreter code to bookvol5
20090413 tpd src/interp/hypertex.boot move interpreter code to bookvol5
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index cfe2bc4..81c435f 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1070,5 +1070,7 @@ bookvol5 fix event comparison case chain bug
bookvol12 add Gelernter's observations
20090413.02.tpd.patch
bookvol15 add more interpreter code
+20090413.03.tpd.patch
+bookvol5 fix 7191, set *system-directory* dynamically