--- toast	2003/08/26 18:47:29	1.184
+++ toast	2003/08/26 23:21:16	1.185
@@ -1868,6 +1868,8 @@
     next unless $_;
     /^(wrap0?|suppress) (int |\w+ \*)(\w+)\((.*)\)$/ || error;
     my($iswrap, $rettype, $basename, $proto) = ($1 ne "suppress", $2, $3, $4);
+    # wrapped dlopen() always fails with "Service not available" in FreeBSD (?)
+    next if $basename eq "dlopen" && $^O eq "freebsd";
     my($iswrap0) = $1 eq "wrap0";
     my($retfailed, $retfmt) = $rettype =~ /\*/ ? (0, '%p') : (-1, '%d');
     my(@alist) = map { /\w+$/ ? $& : error } split(/, /, $proto);
@@ -2237,7 +2239,7 @@
   my($mf) = makefile($makedir) || error("no Makefile found");
   my(@trace, $man, $subdir);
   @trace = qw[strace -s 256 -f -F -o make.install.strace] if debugrewrite;
-  @trace = qw[ktrace -f make.install.ktrace] if @trace && $^O =~ /bsd/i;
+  @trace = qw[ktrace -i -f make.install.ktrace] if @trace && $^O =~ /bsd/i;
   local($ENV{ROOT}) = $rootdir; # lilo
   local($ENV{DESTDIR}) = $rootdir; # not on command line due to libtiff
   local($ENV{install_root}) = $rootdir;