diff --git a/src/lager_transform.erl b/src/lager_transform.erl
index e7f8f35..30364ee 100644
--- a/src/lager_transform.erl
+++ b/src/lager_transform.erl
@@ -135,9 +135,9 @@
             end,
             %% Generate some unique variable names so we don't accidentaly export from case clauses.
             %% Note that these are not actual atoms, but the AST treats variable names as atoms.
-            LevelVar = list_to_atom("__Level" ++ atom_to_list(get(module)) ++ integer_to_list(Line)),
-            TracesVar = list_to_atom("__Traces" ++ atom_to_list(get(module)) ++ integer_to_list(Line)),
-            PidVar = list_to_atom("__Pid" ++ atom_to_list(get(module)) ++ integer_to_list(Line)),
+            LevelVar = make_varname("__Level", Line),
+            TracesVar = make_varname("__Traces", Line),
+            PidVar = make_varname("__Pid", Line),
             %% Wrap the call to lager_dispatch log in a case that will avoid doing any work if this message is not elegible for logging
             %% case  {whereis(lager_event(lager_event), lager_config:get(loglevel, {?LOG_NONE, []})} of
             {'case', Line,
@@ -198,6 +198,9 @@
 transform_statement(Stmt) ->
     Stmt.
 
+make_varname(Prefix, Line) ->
+    list_to_atom(Prefix ++ atom_to_list(get(module)) ++ integer_to_list(Line)).
+
 %% concat 2 list ASTs by replacing the terminating [] in A with the contents of B
 concat_lists({var, Line, _Name}=Var, B) ->
     %% concatenating a var with a cons