--- a/FilenameWidgetWithHistory.st	Fri Jul 24 22:25:51 2015 +0200
+++ b/FilenameWidgetWithHistory.st	Fri Jul 24 22:56:48 2015 +0200
@@ -133,10 +133,10 @@
     ^ history
 !
 
-historyList:aList
+historyList:aCollection
     "set the history - useful when two or more such fields shall share a common history"
 
-    history := aList
+    self historyList value: aCollection
 !
 
 initialDirectoryHolder