diff --git a/ChangeLog b/ChangeLog
index 01d3ad6d69..737589d2a1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-12-11  Sven Neumann  <sven@gimp.org>
+
+	* plug-ins/script-fu/scripts/ripply-anim.scm: applied a patch from
+	Chris Purnell <cjp@lost.org.uk> that adds the possibility to
+	specify the edge behaviour (#83767).
+
 2002-12-10  Michael Natterer  <mitch@gimp.org>
 
 	The unbelievable happened: a menu bar per display (optionally)
diff --git a/plug-ins/script-fu/scripts/ripply-anim.scm b/plug-ins/script-fu/scripts/ripply-anim.scm
index 87b0d5277f..ed19feb2df 100644
--- a/plug-ins/script-fu/scripts/ripply-anim.scm
+++ b/plug-ins/script-fu/scripts/ripply-anim.scm
@@ -16,7 +16,7 @@
       (let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE))))
 	(gimp-floating-sel-anchor floating-sel)))
 
-(define (script-fu-ripply-anim img drawable displacement num-frames)
+(define (script-fu-ripply-anim img drawable displacement num-frames edge-type)
   (let* ((old-bg (car (gimp-palette-get-background)))
 	 (width (car (gimp-drawable-width drawable)))
 	 (height (car (gimp-drawable-height drawable)))
@@ -77,7 +77,7 @@
 	     (set! dup-layer (car (gimp-image-get-active-layer dup-image)))
 	     (plug-in-displace 1 out-imagestack this-layer
 			       displacement displacement
-			       TRUE TRUE dup-layer dup-layer 2)
+			       TRUE TRUE dup-layer dup-layer edge-type)
 	     
 	     (gimp-image-undo-enable dup-image)
 	     (gimp-image-delete dup-image)
@@ -102,4 +102,5 @@
 		    SF-IMAGE "Image to Animage" 0
 		    SF-DRAWABLE "Drawable to Animate" 0
 		    SF-ADJUSTMENT _"Rippling Strength" '(3 0 256 1 10 1 0)
-		    SF-ADJUSTMENT _"Number of Frames" '(15 0 256 1 10 0 1))
+		    SF-ADJUSTMENT _"Number of Frames" '(15 0 256 1 10 0 1)
+		    SF-OPTION _"Edge Behaviour" '(_"Warp" _"Smear" _"Black"))