diff --git a/lib/Properties.hs b/lib/Properties.hs
index bb18499cce63ec2c7775b380ef5c865bdecf6a6e..db4908e310562f873447d57d4f0819b9604adf7b 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -343,10 +343,9 @@ checkTileLayerProperty p@(Property name _value) = case name of
     "startLayer" -> do
       forbidEmptyLayer
       layer <- askContext
-      offersEntrypoint $ layerName layer
       unwrapBool p $ \case
-        True  -> pure ()
-        False -> complain "property \"startLayer\" must be set to true."
+        True  -> offersEntrypoint $ layerName layer
+        False -> warn "property \"startLayer\" is useless if set to false."
     "silent" -> do
       isBool p
       uselessEmptyLayer