diff --git a/changelog b/changelog
index 2561943..256d74d 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20110118 tpd src/axiom-website/patches.html 20110118.02.tpd.patch
+20110118 tpd src/input/fname.input fix failing test
 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
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 7227d4a..8ff8a33 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3349,5 +3349,7 @@ books/bookvol10.4 fixup IntersectionDivisorPackage chunk<br/>
 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/>
+<a href="patches/20110118.02.tpd.patch">20110118.02.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 ce3371b..9e73800 100644
--- a/src/input/fname.input.pamphlet
+++ b/src/input/fname.input.pamphlet
@@ -77,7 +77,7 @@ writo: FNAME := "/tmp/writo"
 [exists? reado, readable? reado, writable? reado]
 --R 
 --R
---R   (7)  [true,true,false]
+--R   (7)  [false,false,true]
 --R                                                           Type: List Boolean
 --E 7
 
@@ -85,7 +85,7 @@ writo: FNAME := "/tmp/writo"
 [exists? writo, readable? writo, writable? writo]
 --R 
 --R
---R   (8)  [true,true,true]
+--R   (8)  [false,false,true]
 --R                                                           Type: List Boolean
 --E 8