--- a/Filename.st	Thu Sep 29 10:10:03 2005 +0200
+++ b/Filename.st	Thu Sep 29 10:14:47 2005 +0200
@@ -3664,6 +3664,26 @@
     ^ self class separator
 
     "Modified: 29.2.1996 / 20:52:01 / cg"
+!
+
+withSpecialExpansions
+    "return a new filename, expanding any OS specific macros. 
+     Here, a ~\ prefix is expanded to the users home dir (as in csh)"
+
+    |newName|
+
+    newName := self nameWithSpecialExpansions:nameString.
+    newName ~= nameString ifTrue:[
+        ^ newName asFilename.
+    ].
+    ^ self.
+
+    "
+     '~' asFilename withSpecialExpansions       
+     '~\work' asFilename withSpecialExpansions  
+     '~sv'asFilename withSpecialExpansions     
+     '~sv\work' asFilename withSpecialExpansions
+    "
 ! !
 
 !Filename methodsFor:'queries-contents'!
@@ -5132,7 +5152,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.292 2005-09-29 08:10:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.293 2005-09-29 08:14:47 cg Exp $'
 ! !
 
 Filename initialize!