@@ -246,11 +246,20 @@
 	      (arch-group (hash-table-ref arch-groups test-base))
 	      (arch-info  (car arch-group)) ;; don't know yet how this will work, can I get more than one possibility?
 	      (archive-id    (car arch-info))
 	      (archive-dir   (cdr arch-info)))
 	 (debug:print 0 *default-log-port* "Processing disk-group " test-base)
-	 (let* ((test-paths (hash-table-ref disk-groups test-base)))
+	 (let* ((test-paths-in (hash-table-ref disk-groups test-base))
+		(test-paths    (if (args:get-arg "-include")
+				   (let ((subpaths (string-split (args:get-arg "-include") ",")))
+				     (apply append
+					    (map (lambda (p)
+						   (map (lambda (subp)
+							  (conc p "/" subp))
+							subpaths))
+						 test-paths-in)))
+				   test-paths-in)))
 	   (if (not (common:file-exists? archive-dir))
 	       (create-directory archive-dir #t))
 	   (case archiver
 	     ((bup) ;; Archive using bup
 	      (let* ((bup-init-params  (list "-d" archive-dir "init"))