--- cadubi~	Sat Dec 22 01:58:06 2001
+++ cadubi	Sat Dec 22 01:59:04 2001
@@ -32,5 +32,5 @@ use FindBin qw($Bin); use lib "$Bin/../l
 my $CADUBI_Arguments = undef;
 $CADUBI_Arguments .= ' --mute' unless $AUDIBLE;
 $CADUBI_Arguments .= ' '.$ADD_OPS if $ADD_OPS;
-exec ('perl '.$Bin.'/CADUBI.pl'.$CADUBI_Arguments.' '.join(' ',@ARGV));
+exec ('perl '.$Bin.'/../libexec/CADUBI.pl'.$CADUBI_Arguments.' '.join(' ',@ARGV));
 
