--- a/FilenameWidgetWithHistory.st	Wed Feb 04 17:56:37 2015 +0100
+++ b/FilenameWidgetWithHistory.st	Fri Feb 13 11:58:45 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 SimpleView subclass:#FilenameWidgetWithHistory
 	instanceVariableNames:'fileNameEntryField browseButton history directoriesOnly filesOnly
 		dialogTitle initialDirectoryHolder baseDirectory'
@@ -124,7 +126,7 @@
 
 historyList
     history isNil ifTrue:[
-        history := nil asValue
+        history := ValueHolder with:nil
     ].
     ^ history
 !
@@ -216,7 +218,7 @@
     super initialize.
 
     directoriesOnly := filesOnly := false.
-    initialDirectoryHolder := nil asValue.
+    initialDirectoryHolder := ValueHolder with:nil.
 
     self initializeFilenameField.
     fileNameEntryField layout:(LayoutFrame
@@ -338,10 +340,10 @@
 !FilenameWidgetWithHistory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.21 2013-08-22 13:54:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.22 2015-02-13 10:58:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.21 2013-08-22 13:54:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.22 2015-02-13 10:58:45 cg Exp $'
 ! !