Index: tools/smaz.adb
==================================================================
--- tools/smaz.adb
+++ tools/smaz.adb
@@ -744,11 +744,13 @@
       use type Natools.Smaz.Tools.String_Count;
       use type Dict_Sources.Enum;
    begin
       case Handler.Dict_Source is
          when Dict_Sources.S_Expression =>
-            return Natools.Smaz.Tools.To_Dictionary (Input, True);
+            return Natools.Smaz.Tools.To_Dictionary
+              (Input,
+               Handler.Vlen_Verbatim);
 
          when Dict_Sources.Text_List | Dict_Sources.Unoptimized_Text_List =>
             declare
                Counter : Natools.Smaz.Tools.Word_Counter;
             begin