diff --git a/include/c/motes.h b/include/c/motes.h
index d833c94ea8..78bd52e380 100644
--- a/include/c/motes.h
+++ b/include/c/motes.h
@@ -1202,6 +1202,7 @@
 #   define c3__werp   c3_s4('w','e','r','p')
 #   define c3__west   c3_s4('w','e','s','t')
 #   define c3__what   c3_s4('w','h','a','t')
+#   define c3__whom   c3_s4('w','h','o','m')
 #   define c3__wing   c3_s4('w','i','n','g')
 #   define c3__wild   c3_s4('w','i','l','d')
 #   define c3__win    c3_s3('w','i','n')
diff --git a/vere/sist.c b/vere/sist.c
index 8bafa3d8f5..f78c395439 100644
--- a/vere/sist.c
+++ b/vere/sist.c
@@ -1694,6 +1694,10 @@ u3_sist_boot(void)
 
     u3A->own = who;
 
+    //  set single-home
+    //
+    u3v_plan(u3nt(u3_blip, c3__arvo, u3_nul), u3nc(c3__whom, u3k(who)));
+
     // initialize ames
     {
       u3_noun tuf = (c3y == u3A->fak) ? u3_nul : u3h(u3t(u3t(u3t(u3t(pig)))));