diff --git a/bin/README b/bin/README
index 41aa8f31e28e248a64c26614d5fdcf0a057d33ab..93553c5206305fbb7ae98034b4d772ebcbf06de3 100644
--- a/bin/README
+++ b/bin/README
@@ -57,10 +57,6 @@ nobinary_dummy
   A simple script that fakes success for all configure
   tests when --disable-binary is set.
 
-parse_install_log
-  [FIXME: What does this do? Doesn't appear to be called
-   from any Makefile.]
-
 pike
   This file is generated from the file pike.in when make
   all is built from the top level make file. This script
diff --git a/bin/parse_install_log b/bin/parse_install_log
deleted file mode 100644
index de53b430e1e2e97f30d24c52e989630c53f5596b..0000000000000000000000000000000000000000
--- a/bin/parse_install_log
+++ /dev/null
@@ -1,130 +0,0 @@
-#! /usr/bin/env pike
-// -*- pike -*-
-
-mapping install_from=([]);
-mapping fake_dirs=([]);
-
-void install(string from, string to)
-{
-  if(search(from,"/CVS/")!=-1) return;
-  install_from[combine_path(".",to)]=combine_path(".",from);
-}
-
-int main(int argc, array(string) argv)
-{
-  string srcdir=argv[1];
-  string prefix=argv[2];
-  array(string) lines=Stdio.stdin->read(0x7fffffff)/"\n";
-
-  foreach(lines, string line)
-    {
-      array(string) args=line/" ";
-      args[0]=basename(args[0]);
-      
-      Getopt.find_all_options(args,
-			      ({
-				({"ignore",Getopt.NO_ARG,"-cvf"}),
-				  }),
-			      0,
-			      0);
-      args=Getopt.get_args(args,0,0);
-      
-      switch(args[0])
-      {
-	case "mkdir":
-	  for(int e=1;e<sizeof(args);e++)
-	    fake_dirs[args]=1;
-	  break;
-	  
-	case "install":
-	case "cp":
-	  mixed s=file_stat(args[-1]);
-	  
-	  if((s && s[1]==-2) || sizeof(args)>3 || fake_dirs[s])
-	  {
-	    for(int e=1;e<sizeof(args)-1;e++)
-	      install(args[e], combine_path(args[-1],basename(args[e])));
-	  }else{
-	    install(args[1], args[2]);
-	  }
-      }
-    }
-
-  string dirname=replace(version()," ","-");
-#if constant(uname)
-  mixed u=uname();
-  if(u->sysname=="AIX")
-    dirname+="-"+u->sysname+"-"+u->version+"."+u->release;
-  else
-    dirname+="-"+u->sysname+"-"+u->release+"-"+u->machine;
-
-  dirname=replace(dirname,"/","-");
-#endif
-
-  Process.system("rm -rf "+dirname);
-  mkdir(dirname);
-  chmod(dirname,0755);
-
-  mkdir(dirname+"/files");
-  chmod(dirname+"/files",0755);
-  
-  Process.system("cp "+
-	srcdir+"/install-sh "+
-	srcdir+"/COPYING "+
-	srcdir+"/COPYRIGHT "+
-	srcdir+"/DISCLAIMER "+
-	srcdir+"/../ANNOUNCE "+
-	dirname);
-  chmod(dirname+"/install-sh",0755);
-
-  mapping new_install_from=([]);
-  int fileno;
-
-  foreach(sort(indices(install_from)), mixed i)
-    {
-      Process.system("cp "+install_from[i]+" "+dirname+"/files/"+fileno);
-      new_install_from[i]="files/"+fileno;
-      fileno++;
-    }
-
-  string script="#!/bin/sh\n";
-  script+="cat <<\EOF\n";
-
-  script+=
-    "This script will install "+version()+" on this machine.\n"
-    "The following directories will be created if they do not\n"
-    "already exist:\n"
-    "\n"
-    "           "+prefix+"/bin/\n"
-    "           "+prefix+"/lib/pike/\n"
-    "           "+prefix+"/include/pike/\n"
-    "\n"
-    "Do you wish to continue? \n"
-    "EOF\n"
-    "if read answer ; then\n"
-    "  case x$answer in\n"
-    "    xy* | xY*) ;;\n"
-    "    *) echo See you later. ; exit 0\n"
-    "  esac\n"
-    "else\n"
-    "  :\n"
-    "fi\n"
-    ;
-
-  
-  foreach(sort(indices(new_install_from)), mixed i)
-    {
-      script+=
-	sprintf("echo installing %s\n",i)+
-	sprintf("if test -f %s ; then mv -f %s %s.old ; else : ; fi\n",i,i,i)+
-	sprintf("./install-sh %s %s\n",new_install_from[i],i);
-    }
-
-  rm(dirname+"/install");
-  Stdio.write_file(dirname+"/install",script);
-  chmod(dirname+"/install",0755);
-
-  Process.system("tar cvf - "+dirname+" | gzip -9 >"+dirname+".tar.gz");
-}
-
-