diff --git a/xschem_library/rom8k/rom8k.sch b/xschem_library/rom8k/rom8k.sch
index c60f9d61..18787d6a 100644
--- a/xschem_library/rom8k/rom8k.sch
+++ b/xschem_library/rom8k/rom8k.sch
@@ -444,3 +444,11 @@ xschem netlist
 xschem simulate
 "
 }
+C {launcher.sym} 1045 -1105 0 0 {name=h6 
+descr="View simulation status" 
+tclcommand="
+  if \{ [info exists execute(id)] \} \{
+     viewdata $execute(data,$execute(id)) ro
+  \}
+"
+}