diff --git a/clx/resource.lisp b/clx/resource.lisp
index 743c14f46aa5c20c059b2a1495da6d7e0d9398a9..61ec2b34b0ad58b45bb850ec0b9832e57e11e693 100644
--- a/clx/resource.lisp
+++ b/clx/resource.lisp
@@ -472,7 +472,7 @@
 (defun merge-resources (database with-database)
   (declare (type resource-database database with-database))
   (declare (values resource-database))
-  (map-resource #'add-resource database with-database)
+  (map-resource database #'add-resource with-database)
   with-database)
 
 (defun char-memq (key char)