1 files changed, 1 insertions, 2 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 75a41d3bf..c074b1aa4 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -199,9 +199,8 @@ package body Synth.Stmts is
          declare
             use Evaluation.String_Utils;
 
-            Info : Str_Info;
+            Info : constant Str_Info := Get_Str_Info (Expr);
          begin
-            Info := Get_Info (Expr);
             if Info.Len > 64 then
                raise Internal_Error;
             end if;