diff --git a/b2/extract-symbols b/b2/extract-symbols
index 11ebbe5..ca1fe7c 100755
--- a/b2/extract-symbols
+++ b/b2/extract-symbols
@@ -22,7 +22,7 @@ sub usage
 &usage if $#ARGV != 0;
 
 push @f, $ARGV[0];
-($dir = $ARGV[0]) =~ s|/[^/]*$||;
+($dir = $ARGV[0]) =~ s|[^/]*$||;
 $dir = "." if $dir eq "";
 
 while (@f) {