diff --git a/books/bookvol9.pamphlet b/books/bookvol9.pamphlet
index e3fd333..73b581a 100644
--- a/books/bookvol9.pamphlet
+++ b/books/bookvol9.pamphlet
@@ -7327,6 +7327,37 @@ $\rightarrow$
\end{chunk}
+\defun{getModemap}{getModemap}
+\calls{getModemap}{get}
+\calls{getModemap}{compApplyModemap}
+\calls{getModemap}{sublis}
+\begin{chunk}{defun getModemap}
+(defun |getModemap| (x env)
+ (let (u)
+ (dolist (modemap (|get| (first x) '|modemap| env))
+ (when (setq u (|compApplyModemap| x modemap env nil))
+ (return (sublis (third u) modemap))))))
+
+\end{chunk}
+
+\defun{getUniqueSignature}{getUniqueSignature}
+\calls{getUniqueSignature}{getUniqueModemap}
+\begin{chunk}{defun getUniqueSignature}
+(defun |getUniqueSignature| (form env)
+ (cdar (|getUniqueModemap| (first form) (|#| (rest form)) env)))
+
+\end{chunk}
+
+\defun{domainMember}{domainMember}
+\calls{domainMember}{modeEqual}
+\begin{chunk}{defun domainMember}
+(defun |domainMember| (dom domList)
+ (let (result)
+ (dolist (d domList result)
+ (setq result (or result (|modeEqual| dom d))))))
+
+\end{chunk}
+
\defun{augModemapsFromCategory}{augModemapsFromCategory}
\calls{augModemapsFromCategory}{evalAndSub}
\calls{augModemapsFromCategory}{compilerMessage}
@@ -16728,6 +16759,7 @@ if \verb|$InteractiveMode| then use a null outputstream
\getchunk{defun displayMissingFunctions}
\getchunk{defun displayPreCompilationErrors}
\getchunk{defun dollarTran}
+\getchunk{defun domainMember}
\getchunk{defun drop}
\getchunk{defun errhuh}
@@ -16741,11 +16773,13 @@ if \verb|$InteractiveMode| then use a null outputstream
\getchunk{defun freelist}
\getchunk{defun get-a-line}
+\getchunk{defun getModemap}
\getchunk{defun getOperationAlist}
\getchunk{defun getScriptName}
\getchunk{defun getTargetFromRhs}
\getchunk{defun get-token}
\getchunk{defun getToken}
+\getchunk{defun getUniqueSignature}
\getchunk{defun genDomainOps}
\getchunk{defun genDomainViewList0}
\getchunk{defun genDomainViewList}
diff --git a/changelog b/changelog
index 1691b5b..38cb550 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,6 @@
+20110708 tpd src/axiom-website/patches.html 20110708.02.tpd.patch
+20110708 tpd src/interp/modemap.lisp treeshake compiler
+20110708 tpd books/bookvol9 treeshake compiler
20110708 tpd src/axiom-website/patches.html 20110708.01.tpd.patch
20110708 tpd src/interp/vmlisp.lisp treehake compiler
20110708 tpd src/interp/modemap.lisp treeshake compiler
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index df34d98..efde134 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3532,5 +3532,7 @@ books/bookvol9 use \defsdollar and \refsdollar
books/bookvol9 treeshake compiler
20110708.01.tpd.patch
books/bookvol9 treeshake compiler
+20110708.02.tpd.patch
+books/bookvol9 treeshake compiler