diff --git a/tcltk/tools.tcl b/tcltk/tools.tcl
index b127292e..c72ee067 100644
--- a/tcltk/tools.tcl
+++ b/tcltk/tools.tcl
@@ -55,7 +55,7 @@ proc magic::resumeall {} {
 proc magic::makecrashbackup {} {
    global Opts
 
-   crash save
+   *bypass crash save
    if {$Opts(backupinterval) > 0} {
       after $Opts(backupinterval) magic::makecrashbackup
    }