--- a/ExtendedComboBox.st	Thu Jan 29 10:11:18 2009 +0100
+++ b/ExtendedComboBox.st	Wed Feb 11 12:38:42 2009 +0100
@@ -395,7 +395,9 @@
 contents:aValue
     "set the value of the field (the models value)"
 
-    model value:aValue.
+    model notNil ifTrue:[
+        model value:aValue.
+    ]
 !
 
 menuExtent
@@ -1508,5 +1510,5 @@
 !ExtendedComboBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.57 2008-10-26 20:09:06 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.58 2009-02-11 11:38:42 cg Exp $'
 ! !