--- a/Plug.st	Mon May 05 18:51:10 2003 +0200
+++ b/Plug.st	Wed May 07 16:09:30 2003 +0200
@@ -135,6 +135,16 @@
 
 !Plug methodsFor:'message sending'!
 
+at:key
+    "catch this one - its so common"
+
+    ^ self doesNotUnderstand:(Message selector:#at: arguments:(Array with:key))
+!
+
+at:key put:value
+    ^ self doesNotUnderstand:(Message selector:#at:put: arguments:(Array with:key with:value))
+!
+
 doesNotUnderstand:aMessage
     "catch unhandled messages by looking in my simulated protocol
      definition; if there is some block for it, return its value.
@@ -255,5 +265,5 @@
 !Plug class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.18 2002-02-25 19:59:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Plug.st,v 1.19 2003-05-07 14:09:30 martin Exp $'
 ! !