diff --git a/src/GMERun.hs b/src/GMERun.hs
index 3793a64e..fda58d65 100644
--- a/src/GMERun.hs
+++ b/src/GMERun.hs
@@ -79,7 +79,9 @@ condTrue s (Cond v1 o v2) = value s v1 =?= value s v2
         NEq -> (/=)
         Lt  -> (<)
         GEq -> (>=)
-        _   -> \_ _ -> False
+        Gt  -> (>)
+        LEq -> (<=)
+        Unknowncond _ -> \_ _ -> False
 
 value :: Ord r => PlayState r -> TVal r -> Word16
 value m (Reg r) = M.findWithDefault 0 r m