--- toast	2005/09/06 00:10:01	1.397
+++ toast	2005/09/06 03:40:29	1.398
@@ -2662,7 +2662,12 @@
         my(@skipstats) = stat($skip) or die("stat $skip: $!");
         next DIR if "$skipstats[0] $skipstats[1]" eq "$stats[0] $stats[1]";
       }
-      exec $_ ($0, @extra, @ARGV);
+      if(exists($ENV{"TOAST_VERBOSE_HS_WRAPPER"}))
+      {
+        print("toast: not rewriting $0 @ARGV\n") unless @extra;
+        print("toast: rewriting $0 @ARGV -> $0 @ARGV @extra\n") if @extra;
+      }
+      exec $_ ($0, @ARGV, @extra);
       die("exec $_ failed: $!");
     }
   }
@@ -2672,7 +2677,7 @@
 EOF
 
 chmod +x "$wrapper"
-for i in ghc ghci ghc-pkg runghc runhaskell; do
+for i in ghc ghci ghc-pkg; do
   path="$rootdir/bin/$i"
   if [ -r "$path" -a ! -r "$path.unwrapped" ] && ! diff -q "$path" "$wrapper"
   then