diff --git a/Physics.hs b/Physics.hs
--- a/Physics.hs
+++ b/Physics.hs
@@ -121,7 +121,7 @@
                 (propagate st False <$> eForces)
         blockInconsistent :: Int -> Int -> StateT (Vector (Writer Any [Force])) (Writer [Alert]) ()
         blockInconsistent i j = do
-            grps <- mapM gets [(!i),(!j)]
+            grps <- mapM gets [(! i),(! j)]
             blocks <- lift $ checkInconsistent i j $ map (fst.runWriter) grps
             modify $ Vector.imap (\k -> if k `elem` blocks then (tell (Any True) >>) else id)
         checkInconsistent :: Int -> Int -> [[Force]] -> Writer [Alert] [Int]
diff --git a/Server.hs b/Server.hs
--- a/Server.hs
+++ b/Server.hs
@@ -401,7 +401,7 @@
         getALock (ActiveLock name idx) = do
             info <- getUserInfo name
             checkValidLockIndex idx
-            case ((!idx).userLocks) info of
+            case ((! idx).userLocks) info of
                 Nothing       -> throwE "Lock not set"
                 Just lockinfo -> return lockinfo
         checkValidLockIndex idx =
@@ -540,7 +540,7 @@
             info <- lift $ getUserInfo name
             applyDeltas info . map snd . filter ((==name).fst) <$> get
         getCurrALock al@(ActiveLock name idx) =
-             fromJust.(!idx).userLocks <$> getCurrUserInfo name
+             fromJust.(! idx).userLocks <$> getCurrUserInfo name
         doNews :: String -> ExceptT String IO ()
         doNews news = case mfeedPath of
             Nothing -> return ()
diff --git a/Version.hs b/Version.hs
--- a/Version.hs
+++ b/Version.hs
@@ -11,4 +11,4 @@
 module Version where
 
 version :: String
-version = "0.8.1"
+version = "0.8.1.1"
diff --git a/intricacy.cabal b/intricacy.cabal
--- a/intricacy.cabal
+++ b/intricacy.cabal
@@ -1,6 +1,6 @@
 cabal-version:      >=1.10
 name:               intricacy
-version:            0.8.1
+version:            0.8.1.1
 license:            GPL-3
 license-file:       COPYING
 maintainer:         mbays@sdf.org