--- bin/SlaveAddTable	2003/11/02 10:21:45	1.6
+++ bin/SlaveAddTable	2003/11/02 10:31:44	1.7
@@ -6,9 +6,15 @@
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+BEGIN {
+	my $basedir = $0; $basedir =~ s#/[^/]+$##;
+	unshift(@INC, "$basedir/../share");
+}
+
 use strict;
 use Pg;
 use Getopt::Long;
+use RServ;
 
 $| = 1;