--- a/TypeConverter.st	Fri Mar 14 11:42:25 2008 +0100
+++ b/TypeConverter.st	Fri Mar 14 12:14:36 2008 +0100
@@ -697,7 +697,7 @@
                 ].
                 model value:value]
 
-        updateBlock: [:m :a :p | m = a = p. true]
+        updateBlock: [:m :a :p | true]
 !
 
 literal
@@ -1501,5 +1501,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.53 2008-03-14 10:42:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.54 2008-03-14 11:14:36 stefan Exp $'
 ! !