diff --git a/library/prolog_pack.pl b/library/prolog_pack.pl
index 261cb215e1..21844418a9 100644
--- a/library/prolog_pack.pl
+++ b/library/prolog_pack.pl
@@ -1817,8 +1817,7 @@
     (   empty_directory(Dir)
     ->  true
     ;   remove_existing_pack(Dir, Options)
-    ->  delete_directory_and_contents(Dir),
-        make_directory(Dir)
+    ->  make_directory(Dir)
     ).
 prepare_pack_dir(Dir, _) :-
     (   read_link(Dir, _, _)