diff --git a/changelog b/changelog
index bdeaa26..2561943 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20110118 tpd src/axiom-website/patches.html 20110118.01.tpd.patch
+20110118 tpd src/input/unittest2.input fix failing test
 20110117 tpd src/axiom-website/patches.html 20110117.01.tpd.patch
 20110117 tpd books/bookvol5 sort monitor results
 20110117 tpd src/input/Makefile clean up failing tests
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index cdfb378..7227d4a 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3344,8 +3344,10 @@ books/bookvol5 convert to lisp tangle<br/>
 <a href="patches/20110110.01.tpd.patch">20110110.01.tpd.patch</a>
 *.lisp.pamphlet moving to lisp tangle<br/>
 <a href="patches/20110115.01.tpd.patch">20110115.01.tpd.patch</a>
-books/bookvol10.4 fixup IntersectionDivisorPackage chunk
+books/bookvol10.4 fixup IntersectionDivisorPackage chunk<br/>
 <a href="patches/20110117.01.tpd.patch">20110117.01.tpd.patch</a>
-src/input/*.input clean up failing tests
+src/input/*.input clean up failing tests<br/>
+<a href="patches/20110118.01.tpd.patch">20110118.01.tpd.patch</a>
+src/input/unittest2.input fix failing test<br/>
  </body>
 </html>
diff --git a/src/input/unittest2.input.pamphlet b/src/input/unittest2.input.pamphlet
index c98cf61..0f75e6a 100644
--- a/src/input/unittest2.input.pamphlet
+++ b/src/input/unittest2.input.pamphlet
@@ -42,10 +42,10 @@ Unit test the user level commands
 --RValue = #<synonym stream to *TERMINAL-IO*>
 --E 4
 
---S 5 of 236 removed this variable, failure ok
-)lisp (identity |$asharpCmdlineFlags|)
+--S 5 of 236 removed this variable
+)lisp (identity nil)
 --R 
---RValue = "-O -Fasy -Fao -Flsp -laxiom -Mno-AXL_W_WillObsolete -DAxiom -Y $AXIOM/algebra"
+--RValue = NIL
 --E 5
 
 --S 6 of 236
@@ -69,7 +69,7 @@ Unit test the user level commands
 --S 9 of 236
 )lisp (identity |$CommandSynonymAlist|)
 --R 
---RValue = ((? . "what commands") (|ap| . "what things") (|apr| . "what things") (|apropos| . "what things") (|cache| . "set functions cache") (|cl| . "clear") (|cls| . "zsystemdevelopment )cls") (|cms| . "system") (|co| . "compiler") (|d| . "display") (|dep| . "display dependents") (|dependents| . "display dependents") (|e| . "edit") (|expose| . "set expose add constructor") (|fc| . "zsystemdevelopment )c") (|fd| . "zsystemdevelopment )d") (|fdt| . "zsystemdevelopment )dt") (|fct| . "zsystemdevelopment )ct") (|fctl| . "zsystemdevelopment )ctl") (|fe| . "zsystemdevelopment )e") (|fec| . "zsystemdevelopment )ec") (|fect| . "zsystemdevelopment )ect") (|fns| . "exec spadfn") (|fortran| . "set output fortran") (|h| . "help") (|hd| . "system hypertex &") (|kclam| . "boot clearClams ( )") (|killcaches| . "boot clearConstructorAndLisplibCaches ( )") (|patch| . "zsystemdevelopment )patch") (|pause| . "zsystemdevelopment )pause") (|prompt| . "set message prompt") (|recurrence| . "set functions recurrence") (|restore| . "history )restore") (|save| . "history )save") (|startGraphics| . "system $AXIOM/lib/viewman &") (|startNAGLink| . "system $AXIOM/lib/nagman &") (|stopGraphics| . "lisp (|sockSendSignal| 2 15)") (|stopNAGLink| . "lisp (|sockSendSignal| 8 15)") (|time| . "set message time") (|type| . "set message type") (|unexpose| . "set expose drop constructor") (|up| . "zsystemdevelopment )update") (|version| . "lisp *yearweek*") (|w| . "what") (|wc| . "what categories") (|wd| . "what domains") (|who| . "lisp (pprint credits)") (|wp| . "what packages") (|ws| . "what synonyms"))
+--RValue = ((? . "what commands") (|ap| . "what things") (|apr| . "what things") (|apropos| . "what things") (|cache| . "set functions cache") (|cl| . "clear") (|cls| . "zsystemdevelopment )cls") (|cms| . "system") (|co| . "compiler") (|d| . "display") (|dep| . "display dependents") (|dependents| . "display dependents") (|e| . "edit") (|expose| . "set expose add constructor") (|fc| . "zsystemdevelopment )c") (|fd| . "zsystemdevelopment )d") (|fdt| . "zsystemdevelopment )dt") (|fct| . "zsystemdevelopment )ct") (|fctl| . "zsystemdevelopment )ctl") (|fe| . "zsystemdevelopment )e") (|fec| . "zsystemdevelopment )ec") (|fect| . "zsystemdevelopment )ect") (|fns| . "exec spadfn") (|fortran| . "set output fortran") (|h| . "help") (|hd| . "system hypertex &") (|kclam| . "boot clearClams ( )") (|killcaches| . "boot clearConstructorAndLisplibCaches ( )") (|patch| . "zsystemdevelopment )patch") (|pause| . "zsystemdevelopment )pause") (|prompt| . "set message prompt") (|recurrence| . "set functions recurrence") (|restore| . "history )restore") (|save| . "history )save") (|startGraphics| . "system $AXIOM/lib/viewman &") (|startNAGLink| . "system $AXIOM/lib/nagman &") (|stopGraphics| . "lisp (|sockSendSignal| 2 15)") (|stopNAGLink| . "lisp (|sockSendSignal| 8 15)") (|time| . "set message time") (|type| . "set message type") (|unexpose| . "set expose drop constructor") (|up| . "zsystemdevelopment )update") (|version| . "lisp (axiomVersion)") (|w| . "what") (|wc| . "what categories") (|wd| . "what domains") (|who| . "lisp (pprint credits)") (|wp| . "what packages") (|ws| . "what synonyms"))
 --E 9
 
 --S 10 of 236