From 4bea59601fe2c560c4a68c0082286019e4edfc2f Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 4 Aug 2015 12:40:08 +0000
Subject: [PATCH] Fix ws_helper's generator.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4246 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/ws_helper/generator.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/wst/trunk/ws_helper/generator.pas b/wst/trunk/ws_helper/generator.pas
index df7bc137c..d43635340 100644
--- a/wst/trunk/ws_helper/generator.pas
+++ b/wst/trunk/ws_helper/generator.pas
@@ -2994,11 +2994,13 @@ begin
   Indent();WriteLn('mm := GetModuleMetadataMngr();');
   Indent();WriteLn('mm.SetRepositoryNameSpace(%s, %s);',[sUNIT_NAME,sNAME_SPACE]);
   s := Trim(SymbolTable.Properties.GetValue(SymbolTable.CurrentModule,s_elementFormDefault));
-  if (s <> '') then
+  if (s <> '') then begin
     Indent();WriteLn('mm.SetRepositoryCustomData(%s, %s, %s);',[sUNIT_NAME,QuotedStr(s_elementFormDefault),QuotedStr(s)]);
+  end;
   s := Trim(SymbolTable.Properties.GetValue(SymbolTable.CurrentModule,s_attributeFormDefault));
-  if (s <> '') then
+  if (s <> '') then begin
     Indent();WriteLn('mm.SetRepositoryCustomData(%s, %s, %s);',[sUNIT_NAME,QuotedStr(s_attributeFormDefault),QuotedStr(s)]);
+  end;
   for i := 0 to Pred(SymbolTable.BindingCount) do begin
     WriteServiceDatas(SymbolTable.Binding[i]);
   end;