diff --git a/src/leveled_log.erl b/src/leveled_log.erl
index 4ad7991..3bf6593 100644
--- a/src/leveled_log.erl
+++ b/src/leveled_log.erl
@@ -489,8 +489,7 @@ should_i_log(LogLevel, Levels, LogRef) ->
 
 is_active_level([L|_], L, _) -> true;
 is_active_level([L|_], _, L) -> false;
-is_active_level([_|T], C, L) -> is_active_level(T, C, L);
-is_active_level([]   , _, _) -> false.
+is_active_level([_|T], C, L) -> is_active_level(T, C, L).
 
 log_timer(LogReference, Subs, StartTime) ->
     log_timer(LogReference, Subs, StartTime, ?LOG_LEVELS).
@@ -572,4 +571,9 @@ shouldilog_test() ->
     ok = set_loglevel(info),
     ?assertMatch(false, should_i_log(debug, ?LOG_LEVELS, "D0001")).
 
+badloglevel_test() ->
+    % Set a bad log level - and everything logs
+    ?assertMatch(true, is_active_level(?LOG_LEVELS, debug, unsupported)),
+    ?assertMatch(true, is_active_level(?LOG_LEVELS, critical, unsupported)).
+
 -endif.
diff --git a/src/leveled_pmem.erl b/src/leveled_pmem.erl
index 85e3272..f19103a 100644
--- a/src/leveled_pmem.erl
+++ b/src/leveled_pmem.erl
@@ -264,10 +264,10 @@ generate_randomkeys(_Seqn, 0, Acc, _BucketLow, _BucketHigh) ->
 generate_randomkeys(Seqn, Count, Acc, BucketLow, BRange) ->
     BNumber =
         lists:flatten(
-            io_lib:format("K~4..0B",
+            io_lib:format("~4..0B",
                             [BucketLow + leveled_rand:uniform(BRange)])),
     KNumber =
-        lists:flatten(io_lib:format("K~4..0B", [leveled_rand:uniform(1000)])),
+        lists:flatten(io_lib:format("~4..0B", [leveled_rand:uniform(1000)])),
     {K, V} = {{o, "Bucket" ++ BNumber, "Key" ++ KNumber, null},
                 {Seqn, {active, infinity}, null}},
     generate_randomkeys(Seqn + 1,