diff --git a/lib/chibi/snow/interface.scm b/lib/chibi/snow/interface.scm
index fe6a1181..0a668f8d 100644
--- a/lib/chibi/snow/interface.scm
+++ b/lib/chibi/snow/interface.scm
@@ -47,6 +47,7 @@
 (define (save-history cfg)
   (let ((history-file (conf-input-history-file cfg)))
     (guard (exn (else (warn "couldn't save history to " history-file)))
+      (create-directory* (path-directory history-file))
       (call-with-output-file history-file
         (lambda (out)
           (write (remove (lambda (x) (equal? x ""))
diff --git a/lib/chibi/snow/interface.sld b/lib/chibi/snow/interface.sld
index ed353f50..88baf582 100644
--- a/lib/chibi/snow/interface.sld
+++ b/lib/chibi/snow/interface.sld
@@ -4,5 +4,6 @@
           restore-history save-history)
   (import (scheme base) (scheme char) (scheme read) (scheme write)
           (scheme file) (scheme process-context) (srfi 1)
-          (chibi config) (chibi show) (chibi stty) (chibi term edit-line))
+          (chibi config) (chibi filesystem) (chibi pathname)
+          (chibi show) (chibi stty) (chibi term edit-line))
   (include "interface.scm"))