--- trunk/lib/Frey/ClassCreator.pm	2008/12/03 21:26:29	704
+++ trunk/lib/Frey/ClassCreator.pm	2008/12/03 21:36:12	705
@@ -31,10 +31,10 @@
 
 	my $class_path  = $class;
 	$class_path =~ s{::}{/}g;
-	$class_path = "lib/$class.pm";
+	$class_path = "lib/$class_path.pm";
 
 	my $test_path = $class;
-	$test_path =~ s{::}{-};
+	$test_path =~ s{::}{-}g;
 	$test_path = "t/30-$test_path.t";
 
 	die qq|class "$class" exists as |, $self->path_size($class_path) if -e $class_path;