--- a/Filename.st	Sat Jan 06 18:49:38 1996 +0100
+++ b/Filename.st	Tue Jan 09 15:33:13 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 Object subclass:#Filename
-	 instanceVariableNames:'nameString'
-	 classVariableNames:'NextTempFilenameIndex'
-	 poolDictionaries:''
-	 category:'System-Support'
+	instanceVariableNames:'nameString'
+	classVariableNames:'NextTempFilenameIndex'
+	poolDictionaries:''
+	category:'System-Support'
 !
 
 !Filename class methodsFor:'documentation'!
@@ -709,6 +709,24 @@
     ]
 !
 
+makeExecutable
+    "make the file executable - you must have permission to do so.
+     For directories, execution means: 'allow changing into it'"
+
+    ^ self addAccessRights:#(executeUser)
+
+    "Created: 9.1.1996 / 15:32:47 / cg"
+!
+
+makeExecutableForAll
+    "make the file executable for all - you must have permission to do so.
+     For directories, execution means: 'allow changing into it'"
+
+    ^ self addAccessRights:#(executeUser executeGroup executeOthers)
+
+    "Created: 9.1.1996 / 15:32:28 / cg"
+!
+
 makeReadable
     "make the file readable for  the owner - you must have permission to do so."
 
@@ -1595,5 +1613,5 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.46 1995-12-04 10:25:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.47 1996-01-09 14:33:13 cg Exp $'
 ! !