diff --git a/game.scm b/game.scm
index b14e01f..6b406fb 100644
--- a/game.scm
+++ b/game.scm
@@ -112,7 +112,8 @@
      (set! *actormap* snapshot)
      (set! *snapshots* older-snapshots)
      (play-sound-effect audio:undo)
-     (show-effect! (make-wipe-effect 0.25)))))
+     (unless *current-effect*
+       (show-effect! (make-wipe-effect 0.15))))))
 
 (define (sort lst compare)
   (match lst