diff --git a/Butts.pm b/Butts.pm
index ee9c604..0ed88aa 100644
--- a/Butts.pm
+++ b/Butts.pm
@@ -6,7 +6,7 @@ use warnings;
 use Math::Random;
 use TeX::Hyphen;
 use Data::Dumper;
-use FindBin qw($Bin);
+use FindBin qw($RealBin);
 use Carp;
 
 use fields qw/replace_freq
@@ -26,8 +26,8 @@ sub new {
     }
 
 
-    my %args = (hyphen_file    => "$Bin/hyphen.tex",
-                stopwords_file => "$Bin/stopwords",
+    my %args = (hyphen_file    => "$RealBin/hyphen.tex",
+                stopwords_file => "$RealBin/stopwords",
                 debug          => 0,
                 meme           => 'butt',
                 replace_freq   => (1/11), # original value from tef.
diff --git a/butt b/butt
index 319f13e..13ecf70 100755
--- a/butt
+++ b/butt
@@ -3,8 +3,8 @@ use strict;
 use warnings;
 
 BEGIN {
-    use FindBin qw($Bin);
-    push @INC, $Bin;
+    use FindBin qw($RealBin);
+    push @INC, $RealBin;
 }
 use Butts;