diff --git a/lib/Properties.hs b/lib/Properties.hs
index 16c8c63241b69d6fbb0286611d82311c76ea269f..e74640160450ade636f0df7e25c6404b8a82a3d5 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -309,7 +309,7 @@ checkObjectProperty p@(Property name _) = do
         when (null (objectName obj) || objectName obj == Just mempty) $
           complain $ "Objects with the property "<>prettyprint name<>" set must \
                      \be named."
-    | name `elem` [ "openSound", "closeSound", "bellSound" ] -> do
+    | name `elem` [ "openSound", "closeSound", "bellSound", "loadSound" ] -> do
         isString p
         unwrapURI (Proxy @"audio") p
           (dependsOn . Link)