diff --git a/examples.md b/examples.md
index d50371e..b632551 100644
--- a/examples.md
+++ b/examples.md
@@ -26,19 +26,19 @@
         (is-genre "swing" g)))
   ```
 
-- `All of Seeed`: A playlist containing all items by artist `Seeed`,
+- `All of Haller`: A playlist containing all items by artist `Haller`,
   useless, since you also can just navigate to the artist to play all
   their songs, but a good example.
   ```
-  Id: Seeed
-  Name: Seeed
+  Id: Haller
+  Name: Haller
   Program: |
     (let
       (parent
         (invoke-generic *item* "FindParent" nil (list "MediaBrowser.Controller.Entities.Audio.MusicArtist, MediaBrowser.Controller")))
       (cond
         ((null parent) nil)
-        (t (string= (car (getitems parent "Name")) "Haller"))))
+        (t (string= (lower (car (getitems parent "Name"))) (lower "Haller")))))
   ```
   or simplified with definitions contained in the preamble:
   ```
@@ -91,7 +91,7 @@
           (lambda
             (i)
             ;; the `(and (find-artist)` is here to prevent null violations.
-            (and (find-artist) (string= i (lower (get-name (find-artist))))))
+            (and (find-artist) (string= (lower i) (lower (get-name (find-artist))))))
           *include-artists*)))
   SortProgram: (begin (shuf *items*))
   Filename: /config/data/smartplaylists/German.yaml