diff --git a/ChangeLog b/ChangeLog
index a7114a1ec00ee3fa7f37d26fff24db6bff3afdd3..d6dbda648bb049d15b9940b70784241907d05a78 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2007-10-18  Per Cederqvist  <ceder@shafan.lysator.liu.se>
 
+	Prepare for displaying status of different clones.
+	* lysrdiff-status: Use $CLONE instead of hardcoding "perm" when
+	selecting which clone to display status for.  The CLONE variable
+	is still a hardcoded constant. :-)
+
 	Make backup-one-task more robust against hung servers.
 	* backup-one-task: Use BatchMode and ServerAliveInterval when
 	fetching the exclude file, to avoid hangs.
diff --git a/lysrdiff-status b/lysrdiff-status
index 10dc3eb51f6366804997b6defc50127ede0976d6..77fdb4f49f0d6537677725223df1944f9b1d8ce8 100755
--- a/lysrdiff-status
+++ b/lysrdiff-status
@@ -1,14 +1,17 @@
 #!/bin/sh
 
-df -hl /lysrdiff/*/perm/*/lysrdiff
+CLONE=perm
+#CLONE=B
+
+df -hl /lysrdiff/*/$CLONE/*/lysrdiff
 echo
 
 statecache=/tmp/cached-state-$USER
 
-for base in /lysrdiff/*/perm/*/lysrdiff
+for base in /lysrdiff/*/$CLONE/*/lysrdiff
 do
-  disk=`echo $base|sed 's%/lysrdiff/\([0-9]*\)/perm/\([0-9]*\)/lysrdiff%\1%'`
-  part=`echo $base|sed 's%/lysrdiff/\([0-9]*\)/perm/\([0-9]*\)/lysrdiff%\2%'`
+  disk=`echo $base|sed 's%/lysrdiff/\([0-9]*\)/'$CLONE'/\([0-9]*\)/lysrdiff%\1%'`
+  part=`echo $base|sed 's%/lysrdiff/\([0-9]*\)/'$CLONE'/\([0-9]*\)/lysrdiff%\2%'`
   # GNU findutils 4.3.3 and newer includes subsecond output in the %TS
   # format.  The sed statement truncates the seconds.
   find $base/state -type f \