diff --git a/clx/resource.lisp b/clx/resource.lisp
index 61ec2b34b0ad58b45bb850ec0b9832e57e11e693..6795bc9d4382fc39ccb693f07ae8f9d622ad6e80 100644
--- a/clx/resource.lisp
+++ b/clx/resource.lisp
@@ -669,7 +669,7 @@
     (wm-resources database window :key key :test test :test-not test-not)
     database))
 
-(defun set-root-resources (screen &key test test-not (write 'princ) database)
+(defun set-root-resources (screen &key test test-not (write #'princ) database)
   "Changes the contents of the root window RESOURCE_MANAGER property for the
    given SCREEN. If SCREEN is a display, then its default screen is used.