diff --git a/my-packages/my-games.scm b/my-packages/my-games.scm
index 1a7f3a3..16489e9 100644
--- a/my-packages/my-games.scm
+++ b/my-packages/my-games.scm
@@ -88,7 +88,8 @@
 					  directory
 					  "[[:blank:]]*\\)"))
 			  "")))
-          '( "wadsrc_extra" ;game_support.pk3
+          '(
+	    ;"wadsrc_extra" ;game_support.pk3
              "wadsrc_bm")) ;brightmaps.pk3
 
          ;; removing game_support.pk3 entirely would break freedoom & remove
@@ -96,21 +97,21 @@
          ;; non-functional data.  that can't be right.  out of an abundance of
          ;; caution, remove anything from the pk3 that could conceivably be
          ;; derived from copyrightable data that's not freely redistributable.
-         (display "keeping only the following game_support.pk3 files:\n")
-         (let* ((regexps (list "/font\\.inf$"
-                               "/harmony/.*\\.(txt|zs)$"
-                               "/(iwadinfo|mapinfo|sprofs)\\.txt$"
-                               "\\.z$"))
-                (regexp* (format #f "(~{~a~^|~})" regexps))
-                (regexp  (make-regexp regexp* regexp/icase)))
-           (define (keep-file? file stat)
-             (let ((keep? (regexp-exec regexp file)))
-               (when keep?
-                 (format #t "  ~a~%" file))
-               keep?))
+         ;; (display "keeping only the following game_support.pk3 files:\n")
+         ;; (let* ((regexps (list "/font\\.inf$"
+         ;;                       "/harmony/.*\\.(txt|zs)$"
+         ;;                       "/(iwadinfo|mapinfo|sprofs)\\.txt$"
+         ;;                       "\\.z$"))
+         ;;        (regexp* (format #f "(~{~a~^|~})" regexps))
+         ;;        (regexp  (make-regexp regexp* regexp/icase)))
+         ;;   (define (keep-file? file stat)
+         ;;     (let ((keep? (regexp-exec regexp file)))
+         ;;       (when keep?
+         ;;         (format #t "  ~a~%" file))
+         ;;       keep?))
 
-           (for-each delete-file (find-files "wadsrc_extra/static"
-                                             (negate keep-file?))))
+         ;;   (for-each delete-file (find-files "wadsrc_extra/static"
+         ;;                                     (negate keep-file?))))
 
          ;; remove some bundled libraries.  xxx there are more, but removing
          ;; them would require, at least, patching the build system.