diff --git a/lib/libdisk/create_chunk.c b/lib/libdisk/create_chunk.c
index 9bb8dd51f9da..5b9c6f4cb2b3 100644
--- a/lib/libdisk/create_chunk.c
+++ b/lib/libdisk/create_chunk.c
@@ -6,7 +6,7 @@
  * this stuff is worth it, you can buy me a beer in return.   Poul-Henning Kamp
  * ----------------------------------------------------------------------------
  *
- * $Id: create_chunk.c,v 1.33 1999/01/08 00:32:19 jkh Exp $
+ * $Id: create_chunk.c,v 1.34 1999/01/14 21:48:13 phk Exp $
  *
  */
 
@@ -260,6 +260,8 @@ MakeDev(struct chunk *c1, const char *path)
     
     if (!strncmp(p, "wd", 2))
 	bmaj = 0, cmaj = 3, p += 2;
+    if (!strncmp(p, "ad", 2))		/* XXX change if "ad' moves */
+	bmaj = 0, cmaj = 3, p += 2;
     else if (!strncmp(p, "sd", 2))
 	bmaj = 4, cmaj = 13, p += 2;
     else if (!strncmp(p, "wfd", 3))
diff --git a/lib/libdisk/disk.c b/lib/libdisk/disk.c
index 63d2ebb45384..c2a8ddc1588c 100644
--- a/lib/libdisk/disk.c
+++ b/lib/libdisk/disk.c
@@ -6,7 +6,7 @@
  * this stuff is worth it, you can buy me a beer in return.   Poul-Henning Kamp
  * ----------------------------------------------------------------------------
  *
- * $Id: disk.c,v 1.40 1999/01/29 11:39:24 jkh Exp $
+ * $Id: disk.c,v 1.41 1999/04/25 22:29:26 imp Exp $
  *
  */
 
@@ -375,7 +375,7 @@ Collapse_Disk(struct disk *d)
 }
 #endif
 
-static char * device_list[] = {"wd", "sd", "da", "wfd", "fla", 0};
+static char * device_list[] = {"wd", "ad", "sd", "da", "wfd", "fla", 0};
 
 char **
 Disk_Names()