diff --git a/AstConv/HtmlStruct.fs b/AstConv/HtmlStruct.fs
index 7385239..f3c2a02 100644
--- a/AstConv/HtmlStruct.fs
+++ b/AstConv/HtmlStruct.fs
@@ -968,7 +968,7 @@ open System.IO
                             let vhead = nexts.Head
                             match vhead with
                             | :? AstImport.FragmentSlice as slice ->
-                                $"""node_{node_curr.address()}->node_{vhead.address()}[label="{story_nm}"]
+                                $"""node_{node_curr.address()}->node_{vhead.address()}[label="{story_nm}" tooltip="{story_nm}" arrowhead="diamond"]
                                 """::node_chains story_nm slice nexts.Tail
                             | _ -> node_chains story_nm node_curr nexts.Tail
                     let arrows_decl = story_lines|> List.map(fun story -> node_chains (story.name()) story (story.children()))
@@ -987,7 +987,7 @@ open System.IO
                                                         node_refs|> List.map(fun nref -> 
                                                             let node_name = $"""{nref.storyRef()}&{nref.sliceRef()}"""
                                                             let _, address_target = node_map|> List.filter(fun (a,_)-> a = node_name)|> List.item 0
-                                                            $"""node_{defn.address()}->node_{address_target}[style="dotted"]
+                                                            $"""node_{defn.address()}->node_{address_target}[style="dotted" arrowhead="open"]
                                                             """
                                                         )
                                                     )