# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1202223824 -3600
# Node ID 8b55b558093b86cb27873e5a3bcb34e9c02ab8fc
# Parent  9c27d7006631ebfa3b7d6b958b7a80cdef6d0cd8
assert

diff -r 9c27d7006631 -r 8b55b558093b PluggableAdaptor.st
--- 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 $'
 ! !