--- trunk/WebPac.pm	2006/04/13 19:31:43	725
+++ trunk/WebPac.pm	2006/05/24 13:32:07	733
@@ -63,6 +63,10 @@
 
 	return $tpl if (! $base_path);
 
+	#warn "base_path: $base_path, p: $p, path: $path, tpl: $tpl\n";
+
+	$p =~ s#/[^/]*$##;
+
 	# strip everything to and including base path, leaving only
 	# additional (virtual) path
 	if ($base_path eq "/") {