--- a/Filename.st	Mon Jan 12 22:10:15 1998 +0100
+++ b/Filename.st	Wed Jan 14 15:12:50 1998 +0100
@@ -880,6 +880,19 @@
     "Modified: 29.2.1996 / 20:57:46 / cg"
 !
 
+nullFilename
+    "Return the OS dependent filename for /dev/null, or nil if there is none.
+     The default is nil here"
+
+    (self ~~ ConcreteClass) ifTrue:[
+        ^ ConcreteClass nullFilename
+    ].
+
+    ^ nil
+
+    "Created: / 12.1.1998 / 12:15:30 / stefan"
+!
+
 parentDirectoryName 
     "return the name used for the parent directory.
      This is '..' for unix and dos-like systems. 
@@ -2809,6 +2822,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.114 1997-11-20 17:34:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.115 1998-01-14 14:12:50 stefan Exp $'
 ! !
 Filename initialize!

--- a/UnixFilename.st	Mon Jan 12 22:10:15 1998 +0100
+++ b/UnixFilename.st	Wed Jan 14 15:12:50 1998 +0100
@@ -57,6 +57,18 @@
     ^ true
 !
 
+nullFilename
+    "Return /dev/null"
+
+    ^ '/dev/null'
+
+    "
+     Filename concreteClass nullFilename  
+    "
+
+    "Modified: / 14.1.1998 / 14:20:55 / stefan"
+!
+
 parentDirectoryName
     "return the name used for the parent directory.
      This is '..' for unix and dos-like systems.
@@ -154,5 +166,5 @@
 !UnixFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.6 1997-12-15 10:33:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.7 1998-01-14 14:12:13 stefan Exp $'
 ! !