anchor.diff:      case FreeBSDVersion of
           undefined ->
               io:format("FreeBSD:"
  -                      "~n   Version: ~p"
  +                      "~n   Version: ~s"
                         "~n", [Version]),
               "";
           _ ->
               io:format("FreeBSD:"
  -                      "~n   Version: ~p (~s)"
  +                      "~n   Version: ~s (~s)"
                         "~n", [Version, FreeBSDVersion])
       end,
       %% This test require that the program 'sysctl' is in the path.
  
positive.code:     Label          = ts_extra_flatform_label(),
      AddLabelFactor = label2factor(simplify_label(Label)),
      io:format("NetBSD:"
                "~n   Version: ~p"
                "~n", [Version]),
      %% This test require that the program 'sysctl' is in the path.
      %% First test with 'which sysctl', if that does not work
  
negative.code:     Label          = ts_extra_flatform_label(),
      AddLabelFactor = label2factor(simplify_label(Label)),
      io:format("OpenBSD:"
                "~n   Version: ~s"
                "~n", [Version]),
      Extract =
          fun(Key) -> 
  