diff --git a/http.pl b/http.pl
line changes: +3/-1
index cef2832..c3b60ac
--- a/http.pl
+++ b/http.pl

@@ -50,13 +50,14 @@ my $ROOT = '/';
     sub handle_request {
         my ($self, $cgi) = @_;
 
+        my $host = $cgi->virtual_host();
         my $path = $cgi->path_info();
         
         print "HTTP/1.0 200 OK\r\n";
         print $cgi->header(-charset => 'utf-8');
 
         $path = substr($path, length($ROOT) - 1);
-        Dreamlands::Dreamer::seed($path);
+        Dreamlands::Dreamer::seed("$host$path");
         my $para_count = int(rand(3)) + 2;
         my $content = '';
         for (1..$para_count) {

@@ -66,6 +67,7 @@ my $ROOT = '/';
 
         $tt->process('page.tt', {
             content => $content,
+            host => $host,
             path => $path,
         });
     }