diff --git a/IV/wm.sql b/IV/wm.sql
index 22fa426..9f29069 100644
--- a/IV/wm.sql
+++ b/IV/wm.sql
@@ -419,7 +419,7 @@ end $$ language plpgsql;
 drop function if exists wm_exaggerate_bend;
 create function wm_exaggerate_bend(INOUT bend geometry) as $$
 declare
-  scale constant float default 1.2; -- per-step scaling factor
+  scale constant float default 1.2; -- exaggeration enthusiasm
   midpoint geometry; -- midpoint of the baseline
   splitbend geometry; -- bend split across its half
   bendm geometry; -- bend with coefficients to prolong the lines