prompt

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