diff --git a/src/RWS.hs b/src/RWS.hs
index 9c00fb529..caf77f963 100644
--- a/src/RWS.hs
+++ b/src/RWS.hs
@@ -66,6 +66,10 @@ rws :: (Foldable syntax, Functor syntax, GAlign syntax)
 rws _          _          as [] = This <$> as
 rws _          _          [] bs = That <$> bs
 rws canCompare _          [a] [b] = if canCompareTerms canCompare a b then [These a b] else [That b, This a]
+rws canCompare equivalent as bs
+  = ses equivalent as bs
+  & mapContiguous canCompare
+  & fmap (bimap snd snd)
 rws canCompare equivalent as bs
   = ses equivalent as bs
   & genFeaturizedTermsAndDiffs