diff --git a/demo.lisp b/demo.lisp
index 7fd7732..d74ad75 100644
--- a/demo.lisp
+++ b/demo.lisp
@@ -6,8 +6,17 @@
 ;;; text-input, textarea, select, dialog, scrollbox, tabbar.
 
 (load "~/quicklisp/setup.lisp")
+
+;; Register local project in case it's not symlinked into quicklisp/local-projects/
+(let ((cl-tty-path (truename ".")))
+  (pushnew cl-tty-path ql:*local-project-directories* :test #'equal))
 (ql:register-local-projects)
-(ql:quickload :cl-tty :silent t)
+
+(ignore-errors (ql:quickload :cl-tty :silent t))
+;; Fallback: load via asdf directly if quicklisp didn't find it
+(unless (find-package :cl-tty.backend)
+  (load "cl-tty.asd")
+  (asdf:load-system :cl-tty))
 
 (use-package :cl-tty.backend)
 (use-package :cl-tty.input)
diff --git a/system-index.txt b/system-index.txt
new file mode 100644
index 0000000..586f38c
--- /dev/null
+++ b/system-index.txt
@@ -0,0 +1 @@
+cl-tty.asd