From 1a6b840a2909a558e941cbbb24618c125d7bd982 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 16 Aug 2014 07:07:19 +0200
Subject: [PATCH] fix infinite loop in expandSymString

---
 src/ce_main.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 45950e37..57972f94 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1863,6 +1863,9 @@ var
   begs, ends: boolean;
   i: integer;
 begin
+  if symString = '' then
+    exit(symString);
+
   result := '';
   elems := TStringList.Create;
   try