diff --git a/utils/SubDomain.pm b/utils/SubDomain.pm
index 63354ebb9..1d37d67e7 100755
--- a/utils/SubDomain.pm
+++ b/utils/SubDomain.pm
@@ -875,7 +875,11 @@ sub getprofilefilename ($) {
     my $profile = shift;
 
     my $filename = $profile;
-    $filename =~ s/\///;                              # strip leading /
+    if ($filename =~ /^\//) {
+	$filename =~ s/^\///;                              # strip leading /
+    } else {
+	$filename = "profile_$filename";
+    }
     $filename =~ s/\//./g;                            # convert /'s to .'s
 
     return "$profiledir/$filename";