diff --git a/changelog b/changelog
index eebb4ae..a9abc27 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20110123 tpd src/axiom-website/patches.html 20110123.01.tpd.patch
+20110123 tpd src/input/fname.input fix failing test
 20110122 tpd src/axiom-website/patches.html 20110122.05.tpd.patch
 20110122 tpd books/Makefile reduce the noise during make
 20110122 tpd src/axiom-website/patches.html 20110122.04.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 909a58f..7147b25 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3363,5 +3363,7 @@ books/bookvol9 move to lisp tangle<br/>
 *.input add \setlength{\textwidth}{400pt}<br/>
 <a href="patches/20110122.05.tpd.patch">20110122.05.tpd.patch</a>
 books/Makefile reduce the noise during make<br/>
+<a href="patches/20110123.01.tpd.patch">20110123.01.tpd.patch</a>
+src/input/fname.input fix failing test<br/>
  </body>
 </html>
diff --git a/src/input/fname.input.pamphlet b/src/input/fname.input.pamphlet
index aed1761..f3ccb02 100644
--- a/src/input/fname.input.pamphlet
+++ b/src/input/fname.input.pamphlet
@@ -78,7 +78,7 @@ writo: FNAME := "/tmp/writo"
 [exists? reado, readable? reado, writable? reado]
 --R 
 --R
---R   (7)  [true,true,true]
+--R   (7)  [true,true,false]
 --R                                                           Type: List Boolean
 --E 7