diff --git a/selfhost/cmd/ww/main.combined.ww b/selfhost/cmd/ww/main.combined.ww
index b00730cf..e789cc9a 100644
--- a/selfhost/cmd/ww/main.combined.ww
+++ b/selfhost/cmd/ww/main.combined.ww
@@ -3675,24 +3675,6 @@ fn arenadupcstr(src: *u8, plen: u64) *u8 = {
 	return buf.ptr;
 };
 
-// builddirmodulepath — alloc <dir>/<base>.ww, NUL-terminated.
-fn builddirmodulepath(dir: *u8, dlen: u64,
-                         base: *u8, blen: u64) *u8 = {
-	let need: u64 = dlen + 1u64 + blen + 3u64 + 1u64;
-	let buf: []u8 = alloc([], need)!;
-	let off: u64 = 0u64;
-	let i: u64 = 0u64;
-	for (i < dlen) { buf[off] = dir[i]; off += 1u64; i += 1u64; };
-	buf[off] = 47u8; off += 1u64;	// '/'
-	i = 0u64;
-	for (i < blen) { buf[off] = base[i]; off += 1u64; i += 1u64; };
-	buf[off] = 46u8;  off += 1u64;	// '.'
-	buf[off] = 119u8; off += 1u64;	// 'w'
-	buf[off] = 119u8; off += 1u64;	// 'w'
-	buf[off] = 0u8;
-	return buf.ptr;
-};
-
 // buildsearchpath — compose the colon-separated lookup path used by
 // resolvemodule's case (4). Order: "." : <incs> : <selfdir>/../../lib
 fn buildsearchpath(selfdir: *u8, incs: *u8) *u8 = {
diff --git a/selfhost/cmd/ww/main.ww b/selfhost/cmd/ww/main.ww
index f1fe7fb7..f9805843 100644
--- a/selfhost/cmd/ww/main.ww
+++ b/selfhost/cmd/ww/main.ww
@@ -992,24 +992,6 @@ fn arenadupcstr(src: *u8, plen: u64) *u8 = {
 	return buf.ptr;
 };
 
-// builddirmodulepath — alloc <dir>/<base>.ww, NUL-terminated.
-fn builddirmodulepath(dir: *u8, dlen: u64,
-                         base: *u8, blen: u64) *u8 = {
-	let need: u64 = dlen + 1u64 + blen + 3u64 + 1u64;
-	let buf: []u8 = alloc([], need)!;
-	let off: u64 = 0u64;
-	let i: u64 = 0u64;
-	for (i < dlen) { buf[off] = dir[i]; off += 1u64; i += 1u64; };
-	buf[off] = 47u8; off += 1u64;	// '/'
-	i = 0u64;
-	for (i < blen) { buf[off] = base[i]; off += 1u64; i += 1u64; };
-	buf[off] = 46u8;  off += 1u64;	// '.'
-	buf[off] = 119u8; off += 1u64;	// 'w'
-	buf[off] = 119u8; off += 1u64;	// 'w'
-	buf[off] = 0u8;
-	return buf.ptr;
-};
-
 // buildsearchpath — compose the colon-separated lookup path used by
 // resolvemodule's case (4). Order: "." : <incs> : <selfdir>/../../lib
 fn buildsearchpath(selfdir: *u8, incs: *u8) *u8 = {