diff --git a/landlock.cpp b/landlock.cpp
index 339ed860..c6f064d9 100644
--- a/landlock.cpp
+++ b/landlock.cpp
@@ -1152,6 +1152,9 @@ land_validity_t& land_validity(eLand l) {
   // special construction in the Chaos mode
   if(chaosmode && (l == laTemple || l == laHive || l == laOcean || l == laHaunted))
     return special_chaos;
+  
+  if(l == laWhirlpool && a4)
+    return dont_work;
 
   // equidistant-based lands
   if(isEquidLand(l)) {