diff --git a/passepartout b/passepartout
index 079a76e..d049eaf 100755
--- a/passepartout
+++ b/passepartout
@@ -386,7 +386,7 @@ case "$COMMAND" in
 (load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))
 (declaim (optimize (debug 3) (speed 0) (safety 3)))
 (push (truename "$PASSEPARTOUT_DATA_DIR/") asdf:*central-registry*)
-(ql:quickload :cl-tty :silent t :force t)
+(ql:quickload :cl-tty :silent t)
 (ql:quickload :passepartout :silent t)
 (let ((dir (pathname (format nil "~a/lisp/" (truename "$PASSEPARTOUT_DATA_DIR")))))
   (dolist (f '("channel-tui-state" "channel-tui-view" "channel-tui-main"))