--- cvsroot/Net-FCP/FCP.pm	2003/09/17 08:57:32	1.23
+++ cvsroot/Net-FCP/FCP.pm	2003/12/10 02:36:37	1.26
@@ -74,7 +74,7 @@
 
 use Carp;
 
-$VERSION = 0.5;
+$VERSION = 0.6;
 
 no warnings;
 
@@ -101,6 +101,7 @@
 
 sub tolc($) {
    local $_ = shift;
+   1 while s/(SVK|CHK|URI)/\L$1\_/;
    s/(?<=[a-z])(?=[A-Z])/_/g;
    lc $_;
 }
@@ -416,6 +417,9 @@
 $txn->(client_get => sub {
    my ($self, $uri, $htl, $removelocal) = @_;
 
+   $uri =~ s/^freenet://;
+   $uri = "freenet:$uri";
+
    $self->txn (client_get => URI => $uri, hops_to_live => xeh (defined $htl ? $htl : 15),
                remove_local_key => $removelocal ? "true" : "false");
 });