diff --git a/wst/trunk/wst_fpc_xml.pas b/wst/trunk/wst_fpc_xml.pas
index 3cb5d71b6..368b0facb 100644
--- a/wst/trunk/wst_fpc_xml.pas
+++ b/wst/trunk/wst_fpc_xml.pas
@@ -80,7 +80,9 @@ end;
 
 procedure ReleaseDomNode(ADomNode : TDOMNodeList);overload;
 begin
+{$IFNDEF TDOMNodeList_RELEASE_NOT_FREE}
   ADomNode.Free();
+{$ENDIF}
 end;
 
 procedure ReleaseDomNode(ADomNode : TDOMNamedNodeMap);overload;
diff --git a/wst/trunk/wst_global.inc b/wst/trunk/wst_global.inc
index 76ca9306e..f3930bcc2 100644
--- a/wst/trunk/wst_global.inc
+++ b/wst/trunk/wst_global.inc
@@ -16,10 +16,13 @@
       {$IF Defined(FPC_RELEASE) }
         {$IF Defined(FPC_VERSION) and (FPC_RELEASE > 0) }
           {$define FPC_211}
-          {$IF Defined(FPC_VERSION) and (FPC_RELEASE > 2) }
+          {$IF Defined(FPC_RELEASE) and (FPC_RELEASE > 2) }
             {$DEFINE WST_TKPROCVAR}
             {$DEFINE WST_UNICODESTRING}
           {$IFEND}
+          {$IF Defined(FPC_RELEASE) and ( (FPC_RELEASE > 2) or ( ( FPC_RELEASE = 2 ) and ( FPC_PATCH > 4 ) ) ) }
+            {$DEFINE TDOMNodeList_RELEASE_NOT_FREE}
+          {$IFEND}
         {$IFEND}
       {$IFEND}
     {$IFEND}