diff --git a/include/extern.h b/include/extern.h
index 17efeecbe..e09f343ae 100644
--- a/include/extern.h
+++ b/include/extern.h
@@ -1426,6 +1426,7 @@ extern int mbirth_limit(int);
 extern void mkmonmoney(struct monst *, long) NONNULLARG1;
 extern int bagotricks(struct obj *, boolean, int *);
 extern boolean propagate(int, boolean, boolean);
+extern void summon_furies(int);
 
 /* ### mcastu.c ### */
 
diff --git a/src/attrib.c b/src/attrib.c
index 2bcc6cade..c51db05e8 100644
--- a/src/attrib.c
+++ b/src/attrib.c
@@ -1257,18 +1257,19 @@ uchangealign(int newalign,
             (u.ualign.type != oldalign) ? "sudden " : "");
     } else {
         /* putting on or taking off a helm of opposite alignment */
+        u.ualign.type = (aligntyp) newalign;
         if (reason == 1) {
+            Your("mind oscillates %s.", Hallucination ? "wildly" : "briefly");
+            make_confused(rn1(2, 3), FALSE);
+            summon_furies(Is_astralevel(&u.uz) ? 0 : 1);
             /* don't livelog taking it back off */
             livelog_printf(LL_ALIGNMENT, "used a helm to turn %s",
                            aligns[1 - newalign].adj);
-        }
-        u.ualign.type = (aligntyp) newalign;
-        if (reason == 1)
-            Your("mind oscillates %s.", Hallucination ? "wildly" : "briefly");
-        else if (reason == 2)
+        } else if (reason == 2) {
             Your("mind is %s.", Hallucination
                                     ? "much of a muchness"
                                     : "back in sync with your body");
+        }
     }
     if (u.ualign.type != oldalign) {
         u.ualign.record = 0; /* slate is wiped clean */
diff --git a/src/makemon.c b/src/makemon.c
index b28d03f8d..608e2a3e5 100644
--- a/src/makemon.c
+++ b/src/makemon.c
@@ -2452,4 +2452,15 @@ bagotricks(
     return moncount;
 }
 
+/* create some or all remaining erinyes around the player */
+void
+summon_furies(int limit) /* number to create, or 0 to create until extinct */
+{
+    int i = 0;
+    while (mk_gen_ok(PM_ERINYS, G_GONE, 0U) && (i < limit || !limit)) {
+        makemon(&mons[PM_ERINYS], u.ux, u.uy, MM_ADJACENTOK | MM_NOWAIT);
+        i++;
+    }
+}
+
 /*makemon.c*/