diff --git a/VERSION b/VERSION
index 6bd04953..dd2f76b4 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.150
+8.3.151
diff --git a/tcltk/tools.tcl b/tcltk/tools.tcl
index 538cfc01..878f7d37 100644
--- a/tcltk/tools.tcl
+++ b/tcltk/tools.tcl
@@ -156,12 +156,17 @@ proc magic::popstack {} {
    } else {
       set ltag [tag load]
       tag load {}
+      suspendall
       load [lindex $editstack end]
+      set snaptype [snap]
+      snap internal
       view [lindex $editstack end-1]
-      tag load $ltag
-      set editstack [lrange $editstack 0 end-2]
+      snap $snaptype
       catch {magic::cellmanager}
       catch {magic::captions}
+      resumeall
+      tag load $ltag
+      set editstack [lrange $editstack 0 end-2]
    }
    return
 }