diff --git a/src/ce_dlang.pas b/src/ce_dlang.pas
index 9ddad516..d7bb29e4 100644
--- a/src/ce_dlang.pas
+++ b/src/ce_dlang.pas
@@ -372,6 +372,8 @@ var
 
 begin
 
+  if aText = '' then exit;
+
   reader.Create(@aText[1], Point(0, 0));
   while (True) do
   begin