diff --git a/books/bookvol9.pamphlet b/books/bookvol9.pamphlet
index 7f369e1..e9553e1 100644
--- a/books/bookvol9.pamphlet
+++ b/books/bookvol9.pamphlet
@@ -19564,6 +19564,25 @@ deleting entries from u assumes that the first element is useless
\end{chunk}
+\defun{checkAddIndented}{checkAddIndented}
+\calls{checkAddIndented}{firstNonBlankPosition}
+\calls{checkAddIndented}{strconc}
+\calls{checkAddIndented}{stringimage}
+\calls{checkAddIndented}{checkAddSpaceSegments}
+\tpdhere{Note that this function was missing without error, so may be junk}
+\begin{chunk}{defun checkAddIndented}
+(defun |checkAddIndented| (x margin)
+ (let (k)
+ (setq k (|firstNonBlankPosition| x))
+ (cond
+ ((eql k -1) "\\blankline ")
+ ((eql margin k) x)
+ (t
+ (strconc "\\indented{" (stringimage (- k margin)) "}{"
+ (|checkAddSpaceSegments| (substring x k nil) 0) "}")))))
+
+\end{chunk}
+
\defun{checkRecordHash}{checkRecordHash}
\calls{checkRecordHash}{member}
\calls{checkRecordHash}{checkLookForLeftBrace}
@@ -20817,6 +20836,7 @@ A nil return implies that the argument list length does not match
\defun{checkIndentedLines}{checkIndentedLines}
\calls{checkIndentedLines}{firstNonBlankPosition}
\calls{checkIndentedLines}{strconc}
+\calls{checkIndentedLines}{checkAddSpaceSegments}
\refsdollar{checkIndentedLines}{charFauxNewline}
\begin{chunk}{defun checkIndentedLines}
(defun |checkIndentedLines| (u margin)
@@ -25240,6 +25260,7 @@ The current input line.
\getchunk{defun checkSkipIdentifierToken}
\getchunk{defun checkSkipOpToken}
\getchunk{defun checkSkipToken}
+\getchunk{defun checkAddIndented}
\getchunk{defun checkAddSpaces}
\getchunk{defun checkSplitBackslash}
\getchunk{defun checkSplitBrace}
diff --git a/changelog b/changelog
index 57856df..8edcce1 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20111208 tpd src/axiom-website/patches.html 20111208.04.tpd.patch
+20111208 tpd books/bookvol9 code cleanup
20111208 tpd src/axiom-website/patches.html 20111208.03.tpd.patch
20111208 tpd src/interp/i-funsel.lisp treeshake interpreter
20111208 tpd books/bookvol5 treeshake interpreter
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 8d29af9..57e0f15 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3731,5 +3731,7 @@ books/bookvolbib add additional Axiom literature references
src/axiom-website/documentation update contributor list
20111208.03.tpd.patch
books/bookvol5 treeshake interpreter
+20111208.04.tpd.patch
+books/bookvol9 code cleanup