--- Push.pm	Sun Apr 25 23:02:13 2004
+++ SVN-Push-0.02/Push.pm	Wed Mar 10 07:25:41 2004
@@ -320,8 +320,8 @@
 
     if ($self->{source_path} ne '/')
 	{
-        my $result = $self->{source_ra} -> get_file ('', -1, undef) ;
-        $self->{source_lastrev} = $result ->[1]{'svn:entry:committed-rev'} ; 
+        my $result = $self->{source_ra} -> get_dir ('', -1) ;
+        $self->{source_lastrev} = $result ->[2]{'svn:entry:committed-rev'} ;
 	}
     else
         {


