diff --git a/src/map/script.c b/src/map/script.c
index 31fba0429e..d115e6df34 100644
--- a/src/map/script.c
+++ b/src/map/script.c
@@ -8737,7 +8737,7 @@ BUILDIN_FUNC(homunculus_evolution)
 {
 	TBL_PC *sd;
 	sd=script_rid2sd(st);
-	if(merc_is_hom_active(sd->hd))
+	if(merc_is_hom_active(sd->hd) && sd->hd->homunculus.intimacy > 91000)
 		merc_hom_evolution(sd->hd);
 	return 0;
 }