--- a/Plug.st	Thu May 13 20:49:16 2004 +0200
+++ b/Plug.st	Mon May 17 16:21:13 2004 +0200
@@ -179,9 +179,13 @@
 value
     "catch this one - its so common"
 
-    ^ self doesNotUnderstand:(Message selector:#value arguments:#())
+    |block|
 
-    "Created: 21.1.1997 / 15:21:24 / cg"
+    block := simulatedProtocol at:#value ifAbsent:[].
+    block isNil ifTrue:[
+        ^ self
+    ].
+    ^ block valueWithArguments:#()
 !
 
 value:arg
@@ -265,5 +269,5 @@
 !Plug class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.19 2003-05-07 14:09:30 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.20 2004-05-17 14:21:13 cg Exp $'
 ! !