diff --git a/kekkonen.scm b/kekkonen.scm
index 9bccf18..fc21422 100644
--- a/kekkonen.scm
+++ b/kekkonen.scm
@@ -317,7 +317,7 @@
 	  (show "Done.")))))
 
 (define (do-command-load)
-  (let ((save-name (prompt "Enter save file name to load: ")))
+  (let ((save-name (prompt-default "Enter save file name to load: " "kekkonen.sav")))
     (if (not (file-exists? save-name))
 	(show "That file does not exist.")
 	(begin