diff --git a/rtl/inc/sstrings.inc b/rtl/inc/sstrings.inc
index dda6ed8753..f4634f09a2 100644
--- a/rtl/inc/sstrings.inc
+++ b/rtl/inc/sstrings.inc
@@ -670,7 +670,9 @@ begin
   if code<=length(s) then
    begin
      case s[code] of
-      '$' : begin
+      '$',
+      'X',
+      'x' : begin
               base:=16;
               inc(code);
             end;