diff --git a/docs/CHANGES.txt b/docs/CHANGES.txt
index 6a2689216..7602e263c 100644
--- a/docs/CHANGES.txt
+++ b/docs/CHANGES.txt
@@ -72,7 +72,7 @@ https://tuxpaint.org/
       - need icons
       - need sound effects
 
-    * [WIP] "Kaleido-4" & "Kaleido-6" -- Kaleidoscopic lens effect.
+    * [WIP] "Kaleido-4", "-6", and "-8" -- Kaleidoscopic lens effects.
       Bill Kendrick <bill@newbreedsoftware.com>
       - need icons
       - need sound effects
diff --git a/magic/src/kaleidoscope_lens.c b/magic/src/kaleidoscope_lens.c
index 4b5cf2c6a..82be940f9 100644
--- a/magic/src/kaleidoscope_lens.c
+++ b/magic/src/kaleidoscope_lens.c
@@ -4,7 +4,7 @@
    kaleidoscope.
    Bill Kendrick
 
-   Last updated: February 28, 2023
+   Last updated: March 7, 2023
 */
 
 #include <stdio.h>
@@ -19,27 +19,32 @@
 enum {
   KAL_LENS_4,
   KAL_LENS_6,
+  KAL_LENS_8,
   NUM_TOOLS
 };
 
 static char * kaleidoscope_lens_snd_filenames[NUM_TOOLS] = {
   "kaleidoscope_lens.ogg", // FIXME
   "kaleidoscope_lens.ogg", // FIXME
+  "kaleidoscope_lens.ogg", // FIXME
 };
 
 static char * kaleidoscope_lens_icon_filenames[NUM_TOOLS] = {
   "colorsep.png", // FIXME
   "colorsep.png", // FIXME
+  "colorsep.png", // FIXME
 };
 
 char * kaleidoscope_lens_names[NUM_TOOLS] = {
   gettext_noop("Kaleido-4"),
   gettext_noop("Kaleido-6"),
+  gettext_noop("Kaleido-8"),
 };
 
 char * kaleidoscope_lens_descrs[NUM_TOOLS] = {
   gettext_noop("Click and drag around your picture to look through it with a kaleidoscope!"),
   gettext_noop("Click and drag around your picture to look through it with a kaleidoscope!"),
+  gettext_noop("Click and drag around your picture to look through it with a kaleidoscope!"),
 };
 
 Mix_Chunk *snd_effects[NUM_TOOLS];
@@ -215,6 +220,8 @@ void kaleidoscope_lens_render(magic_api * api, int which, SDL_Surface * canvas,
     sides = 4;
   } else if (which == KAL_LENS_6) {
     sides = 6;
+  } else if (which == KAL_LENS_8) {
+    sides = 8;
   } else {
     return;
   }