diff --git a/hoa.lib b/hoa.lib
index ee00ae18..ab8b6478 100644
--- a/hoa.lib
+++ b/hoa.lib
@@ -250,8 +250,8 @@ with {
 //-----------------------------------------------------
 map(n, x, r, a)	= encoder(n, x * volume(r), a) : wider(n, ouverture(r))
 with {
-	volume(r) = 1. / (r * r * (r > 1) + (r < 1));
-	ouverture(r) = r * (r < 1) + (r > 1);
+	volume(r) = 1. / (r * r * (r > 1) + (r =< 1));
+	ouverture(r) = r * (r < 1) + (r >= 1);
 };