diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet
index 35eb608..3983d6b 100644
--- a/books/bookvol10.4.pamphlet
+++ b/books/bookvol10.4.pamphlet
@@ -143000,8 +143000,8 @@ TopLevelDrawFunctionsForAlgebraicCurves(R,Ex): Exports == Implementation where
ranges := retract(ratRange :: Any)$ANY1(L SEG RN)
not size?(ranges,2) => error "draw: you must specify two ranges"
xRange := first ranges; yRange := second ranges
- xRangeFloat := map(convert(#1)@Float,xRange)@(SEG F)
- yRangeFloat := map(convert(#1)@Float,yRange)@(SEG F)
+ xRangeFloat := map((s:RN):F+->convert(s)@Float,xRange)@(SEG F)
+ yRangeFloat := map((s:RN):F+->convert(s)@Float,yRange)@(SEG F)
floatRanges := [xRangeFloat,yRangeFloat]
else
floatRanges := retract(floatRange :: Any)$ANY1(L SEG F)
@@ -143009,8 +143009,8 @@ TopLevelDrawFunctionsForAlgebraicCurves(R,Ex): Exports == Implementation where
error "draw: you must specify two ranges"
xRangeFloat := first floatRanges
yRangeFloat := second floatRanges
- xRange := map(retract(#1)@RN,xRangeFloat)@(SEG RN)
- yRange := map(retract(#1)@RN,yRangeFloat)@(SEG RN)
+ xRange := map((s:F):RN+->retract(s)@RN,xRangeFloat)@(SEG RN)
+ yRange := map((s:F):RN+->retract(s)@RN,yRangeFloat)@(SEG RN)
ranges := [xRange,yRange]
-- create curve plot
acplot := makeSketch(p,x,y,xRange,yRange)
diff --git a/changelog b/changelog
index f010ac2..0db762a 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20090622 tpd src/axiom-website/patches.html 20090622.05.tpd.patch
+20090622 tpd books/bookvol10.4 DRAWCURV +-> conversion
20090622 tpd src/axiom-website/patches.html 20090622.04.tpd.patch
20090622 tpd books/bookvol10.4 UTSSOL +-> conversion
20090622 tpd books/bookvol10.4 TABLBUMP +-> conversion
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index 522aad3..27d2309 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -1643,5 +1643,7 @@ Makefile make xhtml pages in parallel
src/axiom-website/download.html add mandriva
20090622.04.tpd.patch
bookvol10.4 TABLBUMP, UTSSOL +-> conversion
+20090622.05.tpd.patch
+bookvol10.4 DRAWCURV +-> conversion