1 files changed, 5 insertions, 1 deletions
diff --git a/src/str_table.adb b/src/str_table.adb
index 46a42dfe8..9993a68b9 100644
--- a/src/str_table.adb
+++ b/src/str_table.adb
@@ -90,7 +90,11 @@ package body Str_Table is
 
    procedure Initialize is
    begin
-      String8_Table.Free;
       String8_Table.Init;
    end Initialize;
+
+   procedure Finalize is
+   begin
+      String8_Table.Free;
+   end Finalize;
 end Str_Table;