diff --git a/doc/fixes34.1 b/doc/fixes34.1
index 44288b145..cff5afdb3 100644
--- a/doc/fixes34.1
+++ b/doc/fixes34.1
@@ -26,6 +26,8 @@ Sunsword didn't stop glowing when hero killed a monster wielding it
 mimics caught in explosions with messages printed about them are discovered
 let lev_comp and dgn_comp accept optional carriage return character prior to
 	the terminating newline in special level and dungeon description files
+Wizard of Yendor will start harassing you after the invocation if you've
+	managed to get that far without ever killing him
 
 
 Platform- and/or Interface-Specific Fixes
diff --git a/src/spell.c b/src/spell.c
index ab72822e0..a723881fd 100644
--- a/src/spell.c
+++ b/src/spell.c
@@ -1,4 +1,4 @@
-/*	SCCS Id: @(#)spell.c	3.4	2002/02/12	*/
+/*	SCCS Id: @(#)spell.c	3.4	2002/03/27	*/
 /*	Copyright (c) M. Stephenson 1988			  */
 /* NetHack may be freely redistributed.  See license for details. */
 
@@ -212,8 +212,15 @@ struct obj *book2;
 	    pline_The("invocation fails!");
 	    pline("At least one of your artifacts is cursed...");
 	} else if(arti1_primed && arti2_primed) {
+	    unsigned soon = (unsigned) d(2,6);	/* time til next intervene() */
+
+	    /* successful invocation */
 	    mkinvokearea();
 	    u.uevent.invoked = 1;
+	    /* in case you haven't killed the Wizard yet, behave as if
+	       you just did */
+	    u.uevent.udemigod = 1;	/* wizdead() */
+	    if (!u.udg_cnt || u.udg_cnt > soon) u.udg_cnt = soon;
 	} else {	/* at least one artifact not prepared properly */
 	    You("have a feeling that %s is amiss...", something);
 	    goto raise_dead;