Index: tools/smaz.adb
==================================================================
--- tools/smaz.adb
+++ tools/smaz.adb
@@ -53,10 +53,11 @@
    package Methods renames Natools.Smaz_Tools.Methods;
 
    package Actions is
       type Enum is
         (Nothing,
+         Adjust_Dictionary,
          Decode,
          Encode,
          Evaluate);
    end Actions;
 
@@ -757,11 +758,11 @@
             end loop;
             Sx_Output.Close_List;
          end if;
 
          case Handler.Action is
-            when Actions.Nothing => null;
+            when Actions.Nothing | Actions.Adjust_Dictionary => null;
 
             when Actions.Decode =>
                if Handler.Sx_Output then
                   Sx_Output.Open_List;
                   for S of Data_List loop
@@ -1344,10 +1345,14 @@
 
          when Options.Force_Word =>
             if Argument'Length > 0 then
                Handler.Need_Dictionary := True;
                Handler.Forced_Words.Append (Argument);
+
+               if Handler.Action in Actions.Nothing then
+                  Handler.Action := Actions.Adjust_Dictionary;
+               end if;
             end if;
       end case;
    end Option;