--- a/trunk/src/wings_face.erl
+++ b/trunk/src/wings_face.erl
@@ -4,12 +4,12 @@
 %%     This module contains help routines for faces, such as fold functions
 %%     face iterators.
 %%
-%%  Copyright (c) 2001-2008 Bjorn Gustavsson
+%%  Copyright (c) 2001-2009 Bjorn Gustavsson
 %%
 %%  See the file "license.terms" for information on usage and redistribution
 %%  of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 %%
-%%     $Id: wings_face.erl 429 2008-10-21 04:11:19Z bjorng $
+%%     $Id: wings_face.erl 599 2009-04-24 04:39:31Z bjorng $
 %%
 
 -module(wings_face).
@@ -526,8 +526,8 @@
 are_neighbors(FaceA, FaceB, We) ->
     VsA = wings_face:vertices_ccw(FaceA, We),
     VsB = wings_face:vertices_ccw(FaceB, We),
-    ordsets:intersection(ordsets:from_list(VsA),
-			 ordsets:from_list(VsB)) =/= [].
+    not ordsets:is_disjoint(ordsets:from_list(VsA),
+			    ordsets:from_list(VsB)).
 
 %% Test whether a face is planar
 is_planar(Tolerance, Face, We) ->