core: Add the shuffler words but without primitives.

[factor.git] / extra / io / files / trash / unix / unix.factor

diff --git a/extra/io/files/trash/unix/unix.factor b/extra/io/files/trash/unix/unix.factor
index d24dec443b9b0b026b4fa8e4218f52309ecab1db..1d27d4400033958a4cc7502f9c0f47cb7663a423 100644 (file)
--- a/extra/io/files/trash/unix/unix.factor
+++ b/extra/io/files/trash/unix/unix.factor
@@ -70,7 +70,7 @@ M: unix send-to-trash ( path -- )
         to-directory safe-file-name
     ] [
         "info" append-path [ make-user-directory ] keep
-        to-directory ".trashinfo" append [ over ] dip utf8 [
+        to-directory ".trashinfo" append overd utf8 [
             "[Trash Info]" write nl
             "Path=" write write nl
             "DeletionDate=" write