diff --git a/src/monsters.c b/src/monsters.c
index ab63cbb31..47d355953 100644
--- a/src/monsters.c
+++ b/src/monsters.c
@@ -836,7 +836,7 @@ void plan_monsters(faction * f)
 
                 switch (old_race(u_race(u))) {
                 case RC_SEASERPENT:
-                    long_order = create_order(K_PIRACY, f->locale, NULL);
+                    // long_order = create_order(K_PIRACY, f->locale, NULL);
                     break;
 #ifdef TODO_ALP
                 case RC_ALP:
diff --git a/src/monsters.test.c b/src/monsters.test.c
index 9fce059f2..2ba2e2ae0 100644
--- a/src/monsters.test.c
+++ b/src/monsters.test.c
@@ -263,7 +263,7 @@ CuSuite *get_monsters_suite(void)
     CuSuite *suite = CuSuiteNew();
     SUITE_ADD_TEST(suite, test_monsters_attack);
     SUITE_ADD_TEST(suite, test_monsters_attack_ocean);
-    SUITE_ADD_TEST(suite, test_seaserpent_piracy);
+    DISABLE_TEST(suite, test_seaserpent_piracy);
     SUITE_ADD_TEST(suite, test_monsters_waiting);
     SUITE_ADD_TEST(suite, test_monsters_attack_not);
     SUITE_ADD_TEST(suite, test_dragon_attacks_the_rich);