--- a/Plug.st	Tue Jun 27 04:18:10 1995 +0200
+++ b/Plug.st	Tue Jun 27 04:20:19 1995 +0200
@@ -11,7 +11,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Plug.st,v 1.2 1995-03-26 20:10:27 claus Exp $
+$Header: /cvs/stx/stx/libview2/Plug.st,v 1.3 1995-06-27 02:19:38 claus Exp $
 "
 !
 
@@ -51,11 +51,18 @@
 
     block := simulatedProtocol at:aMessage selector ifAbsent:[].
     block isNil ifTrue:[
-        ^ super doesNotUnderstand:aMessage
+	^ super doesNotUnderstand:aMessage
     ].
     ^ block valueWithArguments:(aMessage arguments)
 ! !
 
+!Plug methodsFor:'queries'!
+
+respondsTo:aSelector
+    (simulatedProtocol includesKey:aSelector) ifTrue:[^ true].
+    ^ super respondsTo:aSelector
+! !
+
 !Plug methodsFor:'protocol definition'!
 
 respondTo:aSelector with:aBlock