--- a/FilenameWidgetWithHistory.st	Fri Jul 11 20:51:19 2008 +0200
+++ b/FilenameWidgetWithHistory.st	Fri Jul 11 21:40:24 2008 +0200
@@ -68,11 +68,10 @@
 !FilenameWidgetWithHistory methodsFor:'accessing'!
 
 historyList
-    ^ history ? #()
-!
-
-historyList:aCollection
-    history := aCollection
+    history isNil ifTrue:[
+        history := nil asValue
+    ].
+    ^ history
 !
 
 model
@@ -187,5 +186,5 @@
 !FilenameWidgetWithHistory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.6 2008-07-11 18:51:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.7 2008-07-11 19:40:24 cg Exp $'
 ! !