diff --git a/ChangeLog b/ChangeLog
index d924f40bd3..99cb70b51d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-24  Michael Natterer  <mitch@gimp.org>
+
+	* plug-ins/script-fu/scripts/test-sphere.scm: added image, layer,
+	channel and drawable menus for testing.
+
 2003-07-24  Sven Neumann  <sven@gimp.org>
 
 	* app/text/gimptext-vectors.c: more work on glyph decomposition.
diff --git a/plug-ins/script-fu/scripts/test-sphere.scm b/plug-ins/script-fu/scripts/test-sphere.scm
index 190386c3c5..30fb3203e0 100644
--- a/plug-ins/script-fu/scripts/test-sphere.scm
+++ b/plug-ins/script-fu/scripts/test-sphere.scm
@@ -119,9 +119,13 @@
 			       gradient-reverse
 			       font
 			       size
-			       filename
-			       orientation
-			       dirname)
+			       unused-filename
+			       unused-orientation
+			       unused-dirname
+			       unused-image
+			       unused-layer
+			       unused-channel
+			       unused-drawable)
   (let* ((width (* radius 3.75))
 	 (height (* radius 2.5))
 	 (img (car (gimp-image-new width height RGB)))
@@ -224,4 +228,8 @@
 		    SF-ADJUSTMENT "Font Size (pixels)" '(50 1 1000 1 10 0 1)
 		    SF-FILENAME   "Environment Map"    (string-append "" gimp-data-dir "/scripts/beavis.jpg")
 		    SF-OPTION     "Orientation"        '("Horizontal" "Vertical")
-		    SF-DIRNAME    "Output Directory"   "/var/tmp/")
+		    SF-DIRNAME    "Output Directory"   "/var/tmp/"
+		    SF-IMAGE      "Image"              -1
+		    SF-LAYER      "Layer"              -1
+		    SF-CHANNEL    "Channel"            -1
+		    SF-DRAWABLE   "Drawable"           -1)