From bb891a6fe51b4295303aa9f4272cb59ee19c7c92 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 26 Nov 2008 11:12:33 +0000
Subject: [PATCH] Default proxy creation function bug fix

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

diff --git a/wst/trunk/ws_helper/generator.pas b/wst/trunk/ws_helper/generator.pas
index 45b9b20ca..60af966ba 100644
--- a/wst/trunk/ws_helper/generator.pas
+++ b/wst/trunk/ws_helper/generator.pas
@@ -558,6 +558,7 @@ Var
     DecIndent();
     WriteLn('Begin');
       IncIndent();
+        Indent(); WriteLn('locAdr := AAddress;');
         Indent(); WriteLn('if ( locAdr = '''' ) then');
           IncIndent();
             Indent(); WriteLn('locAdr := GetServiceDefaultAddress(TypeInfo(%s));',[AIntf.Name]);