diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 0b37d43..ebef9cd 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -23891,7 +23891,7 @@ ExpressionTubePlot(): Exports == Implementation where
     project: (SF,SF) -> SF
     project(x,y) == x
  
-    constantToUnaryFunction x == project(x,#1)
+    constantToUnaryFunction x == s +-> project(x,s)
  
     tubePlot(x:FE,y:FE,z:FE,colorFcn:SF -> SF,_
              tRange:SEG SF,rad:SF,n:I,s:S) ==
diff --git a/changelog b/changelog
index d722b87..3e6e1ce 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090518 tpd src/axiom-website/patches.html 20090518.12.tpd.patch
+20090518 tpd books/bookvol10.4 EXPRTUBE +-> conversion
 20090518 tpd src/axiom-website/patches.html 20090518.11.tpd.patch
 20090518 tpd books/bookvol10.3 ULSCONS +-> conversion
 20090518 tpd src/axiom-website/patches.html 20090518.10.tpd.patch
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index dd6955c..30e08a5 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1360,5 +1360,7 @@ bookvol10.4 EXPRSOL +-> conversion<br/>
 bookvol10.4 EXPRODE +-> conversion<br/>
 <a href="patches/20090518.11.tpd.patch">20090518.11.tpd.patch</a>
 bookvol10.3 ULSCONS +-> conversion<br/>
+<a href="patches/20090518.12.tpd.patch">20090518.12.tpd.patch</a>
+bookvol10.4 EXPRTUBE +-> conversion<br/>
  </body>
 </html>