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<br/>
 bookvol12 add Gelernter's observations<br/>
 <a href="patches/20090413.02.tpd.patch">20090413.02.tpd.patch</a>
 bookvol15 add more interpreter code<br/>
+<a href="patches/20090413.03.tpd.patch">20090413.03.tpd.patch</a>
+bookvol5 fix 7191, set *system-directory* dynamically<br/>
  </body>
 </html>