diff --git a/oni/home/services/xdisorg.scm b/oni/home/services/xdisorg.scm
index d684bfd..26ed246 100644
--- a/oni/home/services/xdisorg.scm
+++ b/oni/home/services/xdisorg.scm
@@ -90,7 +90,11 @@
    "\n}\n")))
 
 (define (format-rofi-theme theme)
-  (let ((keys (map object->string (butlast theme 1)))
+  (let ((keys (map (lambda (s)
+                     (if (symbol? s)
+                         (symbol->string s)
+                         (object->string s)))
+                   (butlast theme 1)))
         (values (car (list-tail theme (- (length theme) 1)))))
    (string-append (string-join keys ", ")
                   " {\n  "