diff --git a/ChangeLog b/ChangeLog
index af9f5d87d7..b91587c7d3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-06-05  Michael Natterer  <mitch@gimp.org>
+
+	* plug-ins/script-fu/scripts/predator.scm (script-fu-predator): 
+	moved gimp-undo-push-group-end to the end of the script.
+	Fixes bug #114416.
+
 2003-06-04  Sven Neumann  <sven@gimp.org>
 
 	* app/core/gimpmarshal.list: added VOID: ENUM, BOXED, INT.
diff --git a/plug-ins/script-fu/scripts/predator.scm b/plug-ins/script-fu/scripts/predator.scm
index be12a438f9..cf88afb1fa 100644
--- a/plug-ins/script-fu/scripts/predator.scm
+++ b/plug-ins/script-fu/scripts/predator.scm
@@ -90,9 +90,9 @@
     (if (= keep-selection FALSE)
 	(gimp-selection-none image))
     
-    (gimp-undo-push-group-end image)
     (gimp-image-set-active-layer image drawable)
     (gimp-image-remove-channel image active-selection)
+    (gimp-undo-push-group-end image)
     (gimp-displays-flush)))
 
 (script-fu-register "script-fu-predator"
@@ -102,10 +102,10 @@
 		    "Adrian Likins"
 		    "10/12/97"
 		    "RGB*"
-		    SF-IMAGE "Image" 0
-		    SF-DRAWABLE "Drawable" 0
-		    SF-ADJUSTMENT _"Edge Amount" '(2 0 24 1 1 0 0)
-		    SF-TOGGLE     _"Pixelize" TRUE
-		    SF-ADJUSTMENT _"Pixel Amount" '(3 1 16 1 1 0 0)
+		    SF-IMAGE       "Image"          0
+		    SF-DRAWABLE    "Drawable"       0
+		    SF-ADJUSTMENT _"Edge Amount"    '(2 0 24 1 1 0 0)
+		    SF-TOGGLE     _"Pixelize"       TRUE
+		    SF-ADJUSTMENT _"Pixel Amount"   '(3 1 16 1 1 0 0)
 		    SF-TOGGLE     _"Keep Selection" TRUE
 		    SF-TOGGLE     _"Separate Layer" TRUE)