--- toast	2003/12/11 05:16:53	1.268
+++ toast	2003/12/13 02:36:56	1.269
@@ -2968,9 +2968,11 @@
   }
 }
 
-sub postarm()
+sub rebuildinfodir()
 {
   my($dir) = path(armdir, "info");
+  return true unless -d($dir);
+
   my($dirfile) = path($dir, "dir");
 
   # remove old links left by previous version of toast:
@@ -2998,8 +3000,13 @@
     } $dir;
     mv($tmpfile, $dirfile) if -e($tmpfile);
   }
+}
 
+sub postarm()
+{
+  rebuildinfodir;
   run(postarmprog) if postarmprog;
+  return true;
 }
 
 sub arm(@)