diff --git a/books/bookvol9.pamphlet b/books/bookvol9.pamphlet
index b34e59e..a2b27d4 100644
--- a/books/bookvol9.pamphlet
+++ b/books/bookvol9.pamphlet
@@ -4343,10 +4343,11 @@ leave it alone."
\end{chunk}
+\defvar{current-fragment}
+A string containing remaining chars from readline; needed because
+Symbolics read-line returns embedded newlines in a c-m-Y.
\begin{chunk}{initvars}
-(defparameter Current-Fragment nil
- "A string containing remaining chars from readline; needed because
-Symbolics read-line returns embedded newlines in a c-m-Y.")
+(defvar current-fragment nil)
\end{chunk}
@@ -4399,6 +4400,14 @@ always positioned ON the first character.
\end{chunk}
+\defvar{current-line}
+The current input line.
+\begin{chunk}{initvars}
+(defvar current-line (make-line))
+
+\end{chunk}
+
+
\defmacro{line-clear}
\usesstruct{line-clear}{line}
\begin{chunk}{defmacro line-clear}
@@ -4625,9 +4634,10 @@ NonBlank is true if the token is not preceded by a blank.
\end{chunk}
\defvar{current-token}
+Token at head of input stream.
\usesstruct{current-token}{token}
\begin{chunk}{initvars}
-(defparameter current-token (make-token) "Token at head of input stream.")
+(defvar current-token (make-token))
\end{chunk}
@@ -9107,7 +9117,7 @@ of the symbol being parsed. The original list read:
\defdollar{defstack}
\begin{chunk}{initvars}
-(defparameter $defstack nil)
+(defvar $defstack nil)
\end{chunk}
@@ -9125,23 +9135,25 @@ of the symbol being parsed. The original list read:
\defdollar{vl}
\begin{chunk}{initvars}
-(defparameter $vl nil)
+(defvar $vl nil)
\end{chunk}
+\defdollar{is-gensymlist}
\begin{chunk}{initvars}
-(defparameter $IS-GENSYMLIST nil)
+(defvar $is-gensymlist nil)
\end{chunk}
+\defvar{initial-gensym}
\begin{chunk}{initvars}
-(defparameter Initial-Gensym (list (gensym)))
+(defvar initial-gensym (list (gensym)))
\end{chunk}
\defdollar{is-eqlist}
\begin{chunk}{initvars}
-(defparameter $is-eqlist nil)
+(defvar $is-eqlist nil)
\end{chunk}
@@ -11341,7 +11353,7 @@ loop
Stack of results of reduced productions.
\usesstruct{reduce-stack}{stack}
\begin{chunk}{initvars}
-(defparameter reduce-stack (make-stack) )
+(defvar reduce-stack (make-stack) )
\end{chunk}
diff --git a/changelog b/changelog
index 6a26aaf..fd519b0 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,6 @@
+20110227 tpd src/axiom-website/patches.html 20110227.01.tpd.patch
+20110227 tpd src/interp/parsing.lisp treeshake compiler
+20110227 tpd books/bookvol9 treeshake compiler
20110220 tpd src/axiom-website/patches.html 20110220.04.tpd.patch
20110220 tpd src/interp/parsing.lisp treeshake compiler
20110220 tpd books/bookvol9 treeshake compiler
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index ff17328..40f8d51 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3403,5 +3403,7 @@ books/bookvol5 move numericFailure code for plot3d
books/bookvol9 treeshake compiler
20110220.04.tpd.patch
books/bookvol9 treeshake compiler
+20110227.01.tpd.patch
+books/bookvol9 treeshake compiler