Index: /trunk/ccl/lisp-kernel/plbt.c
===================================================================
--- /trunk/ccl/lisp-kernel/plbt.c	(revision 217)
+++ /trunk/ccl/lisp-kernel/plbt.c	(revision 218)
@@ -150,7 +150,9 @@
   if ((fun == 0) || (fun == fulltag_misc)) {
     spname = "unknown ?";
+#ifndef STATIC
     if (dladdr((void *)pc, &info)) {
       spname = (char *)(info.dli_sname);
     }
+#endif
     Dprintf("(#x%08X) #x%08X : (subprimitive %s)", frame, pc, spname);
   } else {
@@ -182,11 +184,14 @@
   Dl_info foreign_info;
 
+#ifndef STATIC
   if (dladdr((void *)pc, &foreign_info)) {
     Dprintf("(#x%08x) #x%08X : %s + %d", frame, pc, foreign_info.dli_sname,
 	    pc-((int)foreign_info.dli_saddr));
   } else {
+#endif
     Dprintf("(#x%08X) #x%08X : foreign code (%s)", frame, pc, "unknown");
-  }
-
+#ifndef STATIC
+  }
+#endif
 }
 
@@ -284,4 +289,5 @@
   void *pc = (void *) (((c_frame *)frame)->savelr);
 #endif
+#ifndef STATIC
   if (dladdr(pc, &info)) {
     if (delta) {
@@ -290,4 +296,5 @@
     return info.dli_sname;
   }
+#endif
   if (delta) {
     *delta = 0;