diff --git a/src/erlog_shell.erl b/src/erlog_shell.erl
index b9821c9..fc8b039 100644
--- a/src/erlog_shell.erl
+++ b/src/erlog_shell.erl
@@ -73,7 +73,11 @@ server_loop(P0) ->
     end.
 
 reconsult_files([F|Fs], Db0) ->
-    case erlog_file:reconsult(F, Db0) of
+    F1 = case filename:extension(F) of
+             [] -> [F, ".pl"];
+             _ -> F
+         end,
+    case erlog_file:reconsult(F1, Db0) of
 	{ok,Db1} -> reconsult_files(Fs, Db1);
 	{erlog_error,Error} -> {erlog_error,Error};
 	{error,Error} -> {error,Error}