diff --git a/books/bookvol5.pamphlet b/books/bookvol5.pamphlet
index 9a1b8e0..5fc8e56 100644
--- a/books/bookvol5.pamphlet
+++ b/books/bookvol5.pamphlet
@@ -21477,12 +21477,6 @@ back.
name)))))
\end{chunk}
-\defun{dewritify,is?}{dewritify,is?}
-\begin{chunk}{defun dewritify,is?}
-(defun |dewritify,is?| (a)
- (eq a 'writified!!))
-
-\end{chunk}
\defdollar{NonNullStream}
\begin{chunk}{initvars}
@@ -21663,7 +21657,7 @@ back.
(defun |dewritify| (ob)
(let (|$seen|)
(declare (special |$seen|))
- (if (null (|ScanOrPairVec| (|function| |dewritify,is?|) ob))
+ (if (null (|ScanOrPairVec| #'(lambda (a) (eq a 'writified!!)) ob))
ob
(progn
(setq |$seen| (make-hash-table :test #'eq))
@@ -40141,7 +40135,6 @@ This needs to work off the internal exposure list, not the file.
\getchunk{defun describeSpad2Cmd}
\getchunk{defun dewritify}
\getchunk{defun dewritify,dewritifyInner}
-\getchunk{defun dewritify,is?}
\getchunk{defun diffAlist}
\getchunk{defun digit?}
\getchunk{defun digitp}
diff --git a/changelog b/changelog
index 9f13bbf..6f33e1d 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20110705 tpd src/axiom-website/patches.html 20110705.01.tpd.patch
+20110705 tpd books/bookvol5 remove dewriteify,s inner function
20110605 tpd src/axiom-website/patches.html 20110605.01.tpd.patch
20110605 tpd Makefile add BUILD=full / BUILD=fast
20110605 tpd Makefile.pamphlet add BUILD=full / BUILD=fast
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 8fa3418..6b34753 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3524,5 +3524,7 @@ books/bookvol9 treeshake compiler
books/bookvol9 treeshake compiler
20110605.01.tpd.patch
Makefile.pamphlet add BUILD=full / BUILD=fast
+20110705.01.tpd.patch
+books/bookvol5 remove dewriteify,s inner function