--- a/hedgewars/uAIActions.pas	Sun Sep 11 21:02:11 2005 +0000
+++ b/hedgewars/uAIActions.pas	Mon Sep 12 21:16:57 2005 +0000
@@ -86,7 +86,7 @@
 function AddAction(Action, Param, TimeDelta: Longword): PAction;
 begin
 New(Result);
-TryDo(Result <> nil, errmsgDynamicVar, true);
+TryDo(Result <> nil, 'AddAction: Result = nil', true);
 FillChar(Result^, sizeof(TAction), 0);
 Result.Action:= Action;
 Result.Param:= Param;