--- deliantra/server/server/spell_util.C	2006/08/15 17:35:51	1.3
+++ deliantra/server/server/spell_util.C	2006/08/25 17:11:53	1.4
@@ -1,6 +1,6 @@
 /*
  * static char *rcsid_spell_util_c =
- *   "$Id: spell_util.C,v 1.3 2006/08/15 17:35:51 elmex Exp $";
+ *   "$Id: spell_util.C,v 1.4 2006/08/25 17:11:53 root Exp $";
  */
 
 
@@ -1444,7 +1444,7 @@
             break;
 
         case SP_PERL:
-            execute_global_event(EVENT_CAST_SPELL, op, caster, spell_ob, dir, stringarg ? stringarg : "");
+            INVOKE_OBJECT (CAST_SPELL, op, ARG_OBJECT (caster), ARG_OBJECT (spell_ob), ARG_STRING (stringarg));
             break;
 
 	default: