diff --git a/zilti/packages/chicken.scm b/zilti/packages/chicken.scm
index 11fb28f..54eef5a 100644
--- a/zilti/packages/chicken.scm
+++ b/zilti/packages/chicken.scm
@@ -7206,7 +7206,6 @@
       (specifications->packages
         (list "chicken-test"
               "chicken-simple-sha1"
-              "chicken-srfi-4"
               "chicken-srfi-13"
               "chicken-srfi-69")))
     (build-system chicken-build-system)
diff --git a/zilti/packages/egg-generator.cscm b/zilti/packages/egg-generator.cscm
index ac34711..d426300 100644
--- a/zilti/packages/egg-generator.cscm
+++ b/zilti/packages/egg-generator.cscm
@@ -5,7 +5,8 @@
         (chicken port)
         (chicken pretty-print)
         (chicken process)
-        (chicken string))
+        (chicken string)
+        (srfi 1))
 
 (define licenses
   '((AGPL . license:agpl3+)
@@ -49,6 +50,13 @@
   (alist-ref (egg-name eggrec) egg-blacklist
              string=? #t))
 
+(define dependency-blacklist
+  '(("srfi-4" . #f)))
+
+(define (keep-dependency? str)
+  (alist-ref str dependency-blacklist
+             string=? #t))
+
 (define (rss-feed-item->title+version+desc feed-item)
   (let ((chunks (string-split (rss:item-title feed-item)))
         (desc (rss:item-description feed-item)))
@@ -115,11 +123,14 @@
                   ,(egg-checksum eggrec)))))
              (propagated-inputs
               (specifications->packages
-               (list ,@(map prepend-chicken-to-dependency (egg-dependencies eggrec)))))
+               (list ,@(map prepend-chicken-to-dependency
+                            (filter keep-dependency? (egg-dependencies eggrec))))))
              (native-inputs
               (specifications->packages
-               (list ,@(map prepend-chicken-to-dependency (egg-test-dependencies eggrec))
-                     ,@(map prepend-chicken-to-dependency (egg-build-dependencies eggrec)))))
+               (list ,@(map prepend-chicken-to-dependency
+                            (filter keep-dependency? (egg-test-dependencies eggrec)))
+                     ,@(map prepend-chicken-to-dependency
+                            (filter keep-dependency? (egg-build-dependencies eggrec))))))
              (build-system chicken-build-system)
              (arguments '(#:egg-name ,(egg-name eggrec)))
              (synopsis ,(egg-description eggrec))