diff --git a/ChangeLog b/ChangeLog
index f45e966778fa775da3fcdc082f818e1cae3e97a1..489d1cf40e73c71c6390618aef8fa9eb3a6421c6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2007-06-14  Per Cederqvist  <ceder@shafan.lysator.liu.se>
 
+	More categories.
+	* fetch-backup-work: New categories: quota1, shafan and vesuvius.
+
 	Port to GNU find 4.3.3.
 	* lysrdiff-status: Handle GNU find version 4.3.3 and newer.
 
diff --git a/fetch-backup-work b/fetch-backup-work
index 59123e8cdc6a32d2bc12e320db5191aa5abc0d9c..cff27200d16f9a53339c57daf435ce91eafbc431 100755
--- a/fetch-backup-work
+++ b/fetch-backup-work
@@ -59,6 +59,10 @@ ssh nema.lysator.liu.se ypcat -k auto_home \
  | sed 's/^/home /' \
 >> $NT
 
+ssh nema.lysator.liu.se 'cd /home/quota1 && ls -1 | while read d ; do [ -d "$d" ] && [ ! -L "$d" ] && echo "$d" ; done' \
+| awk '{ print "quota1", $1, "home", "/export/home/quota1/" $1 }' \
+| sort >> $NT
+
 echo lyskom kom compulsion /export/mdsk2/sw_lyskom_compulsion \
 >> $NT
 
@@ -95,6 +99,14 @@ ssh lenin 'cd /home && ls -1 | while read d ; do [ -d "$d" ] && [ ! -L "$d" ] &&
 echo kilauea root kilauea / >> $NT
 echo kilauea boot kilauea /boot >> $NT
 
+# lysrdiff.
+echo shafan root shafan / >> $NT
+echo shafan boot shafan /boot >> $NT
+
+# ejabberd
+echo vesuvius root vesuvius / >> $NT
+echo vesuvius boot vesuvius /boot >> $NT
+
 diff -u $TASKS $NT
 echo -n '[CONFIRM] '
 read line