--- a/PluggableAdaptor.st	Mon Feb 04 16:44:24 2008 +0100
+++ b/PluggableAdaptor.st	Tue Feb 05 16:03:44 2008 +0100
@@ -288,7 +288,7 @@
 
     getBlock := newGetBlock.
     putBlock := newPutBlock.
-    self assert:newUpdateBlock numArgs == 3.
+    self assert:(newUpdateBlock isNil or:[newUpdateBlock numArgs == 3]).
     updateBlock := newUpdateBlock.
 
     "Modified: 21.2.1997 / 18:18:38 / cg"
@@ -370,5 +370,5 @@
 !PluggableAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.19 2008-02-04 09:32:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.20 2008-02-05 15:03:44 cg Exp $'
 ! !