diff --git a/Packages/Kernel/Routines/ZISHGUX.m b/Packages/Kernel/Routines/ZISHGUX.m
index 771d23a4d18..92048eaec96 100644
--- a/Packages/Kernel/Routines/ZISHGUX.m
+++ b/Packages/Kernel/Routines/ZISHGUX.m
@@ -53,6 +53,10 @@
  S %ZXDEL=0
  D UNWIND^%ZTER
  Q
+DEL1(%F) ; Delete one file
+ O %F
+ C %F:(DELETE:DESTROY)
+ Q
  ;
 LIST(%ZX1,%ZX2,%ZX3) ;ef,SR. Set local array holding fl names
  ;S Y=$$LIST^ZISH("/dir/","list_root","return_root")