--- a/ApplicationModel.st	Mon Feb 25 21:01:24 2002 +0100
+++ b/ApplicationModel.st	Mon Feb 25 21:06:00 2002 +0100
@@ -431,7 +431,7 @@
      (to allow start of a change browser via double-click in the browser)"
 
     (self == ApplicationModel) ifTrue:[^ false "I am abstract"].
-    ((self respondsTo:#open) or:[self class implements:#openInterface]) ifFalse:[^ false].
+    ((self respondsTo:#open) or:[self class includesSelector:#openInterface]) ifFalse:[^ false].
 "/    (self respondsTo:#windowSpec) ifFalse:[^ false].
     ^ true
 
@@ -2591,6 +2591,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.165 2001-12-12 10:39:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.166 2002-02-25 20:06:00 cg Exp $'
 ! !
 ApplicationModel initialize!