diff --git a/IV/test.sql b/IV/test.sql
index 0e7cb20..a91c2f1 100644
--- a/IV/test.sql
+++ b/IV/test.sql
@@ -49,7 +49,8 @@ insert into wm_figures (name, way) values ('fig6-combi', ST_Union(
 insert into wm_figures (name, way) values ('selfcrossing-1-rev',ST_Reverse(
     ST_Translate((select way from wm_figures where name='selfcrossing-1'), 0, 60)));
 
-update wm_figures set way=st_setsrid(way, 3857);
+-- 3395 is now "reserved" for figures.
+update wm_figures set way=st_setsrid(way, 3395);
 
 delete from wm_debug where name in (select distinct name from wm_figures);
 delete from wm_demo where name in (select distinct name from wm_figures);
diff --git a/IV/wm.sql b/IV/wm.sql
index 0d95f75..9f2b903 100644
--- a/IV/wm.sql
+++ b/IV/wm.sql
@@ -464,7 +464,7 @@ begin
         st_project(
           st_transform(point, 4326)::geography,
           st_distance(midpoint, point) * sss, azimuth)::geometry,
-        3857
+        st_srid(midpoint)
       );
       bend = st_setpoint(bend, i-1, point);
     end loop;