diff --git a/C/load_dl.c b/C/load_dl.c
index 5edeb56da..10b2b0e50 100755
--- a/C/load_dl.c
+++ b/C/load_dl.c
@@ -133,7 +133,7 @@ LoadForeign(StringList ofiles, StringList libs,
 
     ofiles->handle = handle;
 
-    if (!*init_proc)
+    if (proc_name && !*init_proc)
       *init_proc = (YapInitProc) dlsym(handle,proc_name);
 
     ofiles = ofiles->next;