X-Git-Url: https://git.hcoop.net/bpt/portal.git/blobdiff_plain/ed97a0068f8f2a89a8082d5990fdb2e34a064685..6aa0cd21ab8b74949d95d375e22dae72a9f35b8c:/poll.sml

diff --git a/poll.sml b/poll.sml
index 74fcaa9..34868cf 100644
--- a/poll.sml
+++ b/poll.sml
@@ -177,9 +177,9 @@ fun dateLtNow d =
 
 fun canModify (poll : poll) =
     Group.inGroupName "poll"
-    orelse (#usr poll = Init.getUserId()
-	    andalso (dateLtNow (#starts poll)
-		     orelse not (#ready poll)))
+    orelse ((#usr poll = Init.getUserId()
+	     andalso (dateLtNow (#starts poll)
+		      orelse not (#ready poll))))
 
 fun requireCanModify poll =
     if canModify poll then