diff --git a/wst/trunk/ws_helper/parserutils.pas b/wst/trunk/ws_helper/parserutils.pas
index 86ef5dfdf..62f20fd6a 100644
--- a/wst/trunk/ws_helper/parserutils.pas
+++ b/wst/trunk/ws_helper/parserutils.pas
@@ -150,6 +150,8 @@ begin
         end;
       end;
     end;
+    if (Length(Result) > 1) and (Result[Length(Result)] = '_') then
+      Delete(Result,Length(Result),1);
   end;
 end;