diff --git a/Source/ObjectSpace/Ocl/BoldOclSymbolImplementations.pas b/Source/ObjectSpace/Ocl/BoldOclSymbolImplementations.pas
index 74c8614..db2944d 100644
--- a/Source/ObjectSpace/Ocl/BoldOclSymbolImplementations.pas
+++ b/Source/ObjectSpace/Ocl/BoldOclSymbolImplementations.pas
@@ -30,6 +30,7 @@ implementation
   BoldSubscription,
   BoldValueSpaceInterfaces,
   System.RegularExpressions,
+  System.RegularExpressionsCore,
   BoldIsoDateTime;
 
 var
@@ -3043,8 +3044,7 @@ procedure TBOS_AllSubClasses.Evaluate(const Params: TBoldOclSymbolParameters);
 
 function EscapeRegEx(const ASource: string): string;
 begin
-  result := StringReplace(ASource, '[', '\[', [rfReplaceAll]);
-  result := StringReplace(result, '%', '', [rfReplaceAll]);
+  result := TPerlRegEx.EscapeRegExChars(ASource);
 end;
 
 procedure TBOS_SQLLike.Evaluate(const Params: TBoldOclSymbolParameters);