--- a/Plug.st	Fri Feb 21 20:38:15 1997 +0100
+++ b/Plug.st	Fri Feb 21 20:38:32 1997 +0100
@@ -199,7 +199,7 @@
      message."
 
     (self class implements:aSelector) ifFalse:[
-        (self class superclass respondsTo:aSelector) ifTrue:[
+        (self class superclass canUnderstand:aSelector) ifTrue:[
 
             "/ sorry - this implementation is too quick of a hack.
             "/ (must be rewritten to inherit from nil, in order 
@@ -221,7 +221,7 @@
      p foo:'hello'
     "
 
-    "Modified: 21.1.1997 / 15:24:31 / cg"
+    "Modified: 21.2.1997 / 18:35:07 / cg"
 ! !
 
 !Plug methodsFor:'queries'!
@@ -238,5 +238,5 @@
 !Plug class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.15 1997-01-21 14:24:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.16 1997-02-21 19:38:32 cg Exp $'
 ! !