diff options
| -rw-r--r-- | src/fmd.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fmd.adb b/src/fmd.adb index 8d8fcde..cd512cb 100644 --- a/src/fmd.adb +++ b/src/fmd.adb @@ -170,7 +170,7 @@ package body FMD is loop Position := SU.Index (Text, Item); exit when Position = 0; - SU.Replace_Slice (Text, Position, Position + Sub'Length - 1, Sub); + SU.Replace_Slice (Text, Position, Position + Item'Length - 1, Sub); end loop; end Replace_All; |