summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/fmd.adb2
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;