diff --git a/app/talk.hoon b/app/talk.hoon
index 682d9b7860..1a4db90aab 100644
--- a/app/talk.hoon
+++ b/app/talk.hoon
@@ -1875,21 +1875,8 @@
   ++  sn-curt                                           ::  render name in 14
     |=  mup/?
     ^-  tape
-    =+  rac=(clan p.one) 
-    =+  raw=(scow %p p.one)
-    =.  raw  ?.(mup raw ['*' (slag 2 raw)])
-    ?-    rac
-        $czar  (weld "          " raw)
-        $king  (weld "       " raw)
-        $duke  raw
-        $earl  ;:  welp
-                 (scag 1 raw)
-                 (scag 6 (slag 15 raw))
-                 "^"
-                 (scag 6 (slag 22 raw))
-               ==
-        $pawn  :(welp (scag 7 raw) "_" (scag 6 (slag 51 raw)))
-    ==
+    =+  raw=(shortship %p p.one)
+    (runt [(sub 14 (lent raw)) ' '] raw)
   ::
   ++  sn-nick
     |.  ^-  tape
diff --git a/lib/drum.hoon b/lib/drum.hoon
index 399a1f43be..7f8b0cc66c 100644
--- a/lib/drum.hoon
+++ b/lib/drum.hoon
@@ -968,7 +968,7 @@
   ::
   ++  ta-pro                                          ::  set prompt
     |=  pom/sole-prompt
-    +>(pom pom(cad :(welp (scow %p p.gyl) ":" (trip q.gyl) cad.pom)))
+    +>(pom pom(cad :(welp (shortship:sole p.gyl) ":" (trip q.gyl) cad.pom)))
   ::
   ++  ta-ret                                          ::  hear return
     (ta-act %ret ~)
diff --git a/lib/sole.hoon b/lib/sole.hoon
index 8983f501ed..e476ef3593 100644
--- a/lib/sole.hoon
+++ b/lib/sole.hoon
@@ -138,4 +138,15 @@
   =+  dat=(transmute [%mor leg] [%ins pos `@c`0])
   ?>  ?=($ins -.dat)
   p.dat
+::
+++  shortship
+  |=  ship/@p 
+  ^-  tape
+  =+  kind=(clan ship)
+  =+  name=(scow %p ship)
+  ?:  =(%earl kind)
+    :(weld "~" (swag [15 6] name) "^" (swag [22 6] name))
+  ?:  =(%pawn kind)
+    :(weld (swag [0 7] name) "_" (swag [51 6] name))
+  name
 --