Merge bug26180

1 files changed, 6 insertions, 5 deletions

diff --git a/src/truncate.erl b/src/truncate.erl
index 02dba2e36a..1d69de56ac 100644
--- a/src/truncate.erl
+++ b/src/truncate.erl
@@ -37,11 +37,12 @@ log_event({Type, GL, {Pid, ReportType, Report}}, Params)
 log_event(Event, _Params) ->
     Event.
 
-report([[Thing]], Params) -> report([Thing], Params);
-report(List, Params)      -> [case Item of
-                                      {K, V} -> {K, term(V, Params)};
-                                      _      -> term(Item, Params)
-                                  end || Item <- List].
+report([[Thing]], Params)               -> report([Thing], Params);
+report(List, Params) when is_list(List) -> [case Item of
+                                                {K, V} -> {K, term(V, Params)};
+                                                _      -> term(Item, Params)
+                                            end || Item <- List];
+report(Other, Params)                   -> term(Other, Params).
 
 term(Thing, {Content, Struct, ContentDec, StructDec}) ->
     term(Thing, true, #params{content     = Content,