diff --git a/rolladecks.scm b/rolladeck.scm
similarity index 99%
rename from rolladecks.scm
rename to rolladeck.scm
index dc13a4d..654273d 100755
--- a/rolladecks.scm
+++ b/rolladeck.scm
@@ -121,12 +121,12 @@
   (qt:widget (window-contents)))
 
 
-;; Return the UI’s XML, read from “contacts.ui”.
+;; Return the UI’s XML, read from “rolladeck.ui”.
 ;; We could generate this XML ourselves, and write a nice s-expr front-end,
 ;; maybe… `o`
 (define (window-contents)
   (call-with-input-file
-      "rolladecks.ui"
+      "rolladeck.ui"
     (lambda (in-port) (read-string #f in-port))))
 
 
diff --git a/rolladecks.ui b/rolladeck.ui
similarity index 100%
rename from rolladecks.ui
rename to rolladeck.ui