Fixed a little bug where initrd= wasn't being passed. Everythings looks good

with the default Initrd.gz.

BootRoot/BootRoot.pm

@@ -53,6 +53,9 @@ my $uml_xterm = "xterm -e";
 # and to update scripts/Debian.yard if
 # make_debian has been changed,
 # and to install -s linux.
+# and to make sure modules are correct in Initrd.gz
+# apply special patches
+
 my $version = "1.3.5";
 my $date = "02.13.2002";
 my $gtk_perl_version = "0.7002";
@@ -60,6 +63,7 @@ my $pwd = `pwd`; chomp $pwd;
 my $home_rootfs = "$home/root_filesystem/";
 my $home_uml_kernel = "$home/uml_kernel/";
 my $modules_directory = "/lib/modules";
+my $Initrd = "/usr/lib/bootroot/root_filesystem/Initrd.gz";
 
 # This is for experimental stuff .. basically so I can test
 # the boot fs as a normal user, since it's hard to create a boot disk
@@ -1729,7 +1733,7 @@ sub uml_box {
 
 
 	#_______________________________________
-	# Submit Button
+# Submit Button
         my $submit_b = button_advanced(0,1,7,8,"Submit",$table_uml);
 	$tooltips->set_tip( $submit_b, 
                            "Start uml kernel processes.",
@@ -1869,7 +1873,7 @@ sub uml_box {
 					      # Decide what to do with initrd
 					      if ( !$initrd ) {
 						  
-						  $initrd = "initrd=Initrd";
+						  $initrd = "initrd=" . $Initrd;
 						  
 					      }
 					      else {