diff --git a/secure/errord.c b/secure/errord.c
index 932c3c2..765f67e 100644
--- a/secure/errord.c
+++ b/secure/errord.c
@@ -374,7 +374,7 @@
     issue->obj = objectp(err[F_OBJ]) ? object_name(err[F_OBJ]) : err[F_OBJ];
     issue->loc = err[F_LINE];
     // Normalisieren auf fuehrenden / und kein .c
-    if (err[F_PROG]!="unbekannt")
+    if (err[F_PROG] && err[F_PROG]!="unbekannt")
         issue->prog=err[F_PROG][0] in "/#<" ? err[F_PROG] : "/" + err[F_PROG];
     else
         issue->prog = "unbekannt";