diff --git a/source/main.pas b/source/main.pas
index 5cd7d3b9..f6b6374f 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -5345,7 +5345,7 @@ begin
     Msg := _('Empty value.')
   else begin
     rx := TRegExpr.Create;
-    rx.Expression := '(/\*|--|#|\''|\"|`)';
+    rx.Expression := '(/\*|--|#|\''|\"|`|\$\$)';
     if rx.Exec(Value) then
       Msg := _('Start-of-comment tokens or string literal markers are not allowed.')
   end;