X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fio%2Ffiles%2Ftrash%2Funix%2Funix.factor;h=f451891311eae6d6eb294974fe0116753ea18fad;hp=e8b8489cdb7fd75de951225543505126900e50ea;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24

diff --git a/extra/io/files/trash/unix/unix.factor b/extra/io/files/trash/unix/unix.factor
index e8b8489cdb..f451891311 100644
--- a/extra/io/files/trash/unix/unix.factor
+++ b/extra/io/files/trash/unix/unix.factor
@@ -21,7 +21,7 @@ IN: io.files.trash.unix
     [ dup top-directory? not ] [ ".." append-path ] while ;
 
 : make-user-directory ( path -- )
-    [ make-directories ] [ OCT: 700 set-file-permissions ] bi ;
+    [ make-directories ] [ 0o700 set-file-permissions ] bi ;
 
 : check-trash-path ( path -- )
     {