diff --git a/bin/xen-create-image b/bin/xen-create-image
index bccfc8a..1c897a9 100755
--- a/bin/xen-create-image
+++ b/bin/xen-create-image
@@ -4071,7 +4071,7 @@ sub unMountImage
     my @points;
 
     open( MOUNTED, "<", "/proc/mounts" ) or
-      die "Failed to open mount list";
+      fail("Failed to open mount list");
     foreach my $line (<MOUNTED>)
     {