diff --git a/Alien/Package/Slp.pm b/Alien/Package/Slp.pm
index 5de6888..300dbb7 100644
--- a/Alien/Package/Slp.pm
+++ b/Alien/Package/Slp.pm
@@ -102,6 +102,7 @@ sub install {
 	my $this=shift;
 	my $slp=shift;
 
+	system("slpi $slp") && die "Unable to install: $!";
 }
 
 =item getfooter
@@ -134,15 +135,15 @@ sub scan {
 	my $file=$this->filename;
 
 	# Decode the footer.
-	my @values=unpack(footer_packstring,$this->getfooter);
+	my @values=unpack(footer_packstring(),$this->getfooter);
 	# Populate fields.
-	foreach my $field (@{fieldlist}) {
+	foreach my $field (@{fieldlist()}) {
 		$_=shift @values;
 		$this->$field($_);
 	}
 
 	# A simple sanity check.
-	if (! defined $this->slpkgversion || $this->slpkgversion < footer_version) {
+	if (! defined $this->slpkgversion || $this->slpkgversion < footer_version()) {
 		die "unsupported stampede package version";
 	}
 
@@ -152,7 +153,7 @@ sub scan {
 	foreach (`bzip2 -d < $file | tar -tf -`) {
 		s:^\./:/:;
 		$_="/$_" unless m:^/:;
-		push @filelist, $fn;
+		push @filelist, $_;
 	}
 
 	# TODO: read in postinst script.
@@ -191,17 +192,6 @@ sub unpack {
 	return 1;
 }
 
-=item prep
-
-No prep stage is needed for slp files.
-
-=cut
-
-sub prep {
-	my $this=shift;
-	my $dir=$this->unpacked_tree || die "The package must be unpacked first!";
-}
-
 =item build
 
 Build a slp.
@@ -210,8 +200,50 @@ Build a slp.
 
 sub build {
 	my $this=shift;
+	my $slp=$this->name."-".$this->version.".slp";
+	
+	# Now generate the footer.
+	# We cannot use the actual $slp::footer_packstring, becuase it uses
+	# space terminated strings (A) instead of null terminated strings
+	# (a). That is good for decoding, but not for encoding.
+	my $fmt=footer_packstring();
+	$fmt=~tr/A/a/;
 
-	return # filename
+	my $footer=pack($fmt,
+		$this->conffiles,
+		2, # Use priority optional for alien packages.
+		0, # Always use bzip2 as the compression type.
+		$this->release,
+		254, # Don't try to guess copyright, just use unknown.
+		'', # Conflicts.
+		'', # Set up script. TODO
+		$this->description,
+		'', # Depends.
+		'', # Provides.
+		$this->author,
+		scalar localtime, # Use current date.
+		252, # Unknown compiler.
+		$this->version,
+		$this->name,
+		$this->arch,
+		252, # Unknown group.
+		footer_version(),
+	);
+
+	# Generate .tar.bz2 file.
+	# Note that it's important I use "./*" instead of just "." or
+	# something like that, becuase it results in a tar file where all
+	# the files in it start with "./", which is consitent with how
+	# normal stampede files look.
+	system("(cd ".$this->unpacked_tree."; tar cf - ./*) | bzip2 - > $slp") &&
+		die "package build failed: $!";
+
+	# Now append the footer.
+	open (OUT,">>$slp") || die "$slp: $!";
+	print OUT $footer;
+	close OUT;
+
+	return $slp;
 }
 
 =item conffiles
@@ -219,7 +251,8 @@ sub build {
 Set/get conffiles.
 
 When the conffiles are set, the format used by slp (a colon-delimited list)
-is turned into the real list that is used internally.
+is turned into the real list that is used internally. The list is changed
+back into slp's internal format when it is retreived.
 
 =cut
 
@@ -227,11 +260,11 @@ sub conffiles {
 	my $this=shift;
 
 	# set
-	$this->{conffiles}=[split /:/, shift]; if @_;
+	$this->{conffiles}=[split /:/, shift] if @_;
 
 	# get
 	return unless defined wantarray; # optimization
-	return $this->{conffiles};
+	return join(':',@{$this->{conffiles}});
 }
 
 =item copyright
@@ -248,11 +281,14 @@ sub copyright {
 	my $this=shift;
 
 	# set
-	$this->{copyright}=(${copyrighttrans}{shift} || 'unknown') if @_;
+	$this->{copyright}=(${copyrighttrans()}{shift} || 'unknown') if @_;
 	
 	# get
 	return unless defined wantarray; # optimization
-	return $this->{copyright};
+	my %transcopyright=reverse %{copyrighttrans()};
+	return $transcopyright{$this->{copyright}}
+		if (exists $transcopyright{$this->{copyright}});
+	return 254; # unknown
 }
 
 =item arch
@@ -270,15 +306,39 @@ sub arch {
 
 	# set
 	if (@_) {
-		$this->{arch}=(${archtrans}{shift};
+		$this->{arch}=${archtrans()}{shift};
 		die "unknown architecture" if ! $this->{arch};
 	}
 
 	# get
 	return unless defined wantarray; # optimization
-	return $this->{arch};
+	my %transarch=reverse %{archtrans()};
+	return $transarch{$this->{arch}}
+		if (exists $transarch{$this->{arch}});
+	die "Stampede does not support architecture ".$this->{arch}." packages";
 }
 
+=item release
+
+Set/get release version.
+
+When the release version is retreived, it is converted to an unsigned
+integer, as is required by the slp package format.
+
+=cut
+
+sub release {
+	my $this=shift;
+
+	# set
+	$this->{release}=shift;
+
+	# get
+	return unless defined wantarray; # optimization
+	return int($this->{release});
+}
+
+
 =head1 AUTHOR
 
 Joey Hess <joey@kitenet.net>
diff --git a/lib/Toslp.pm b/lib/Toslp.pm
deleted file mode 100644
index 953344b..0000000
--- a/lib/Toslp.pm
+++ /dev/null
@@ -1,137 +0,0 @@
-#!/usr/bin/perl
-#
-# Package for converting to stampede package format.
-
-# Pull in details on the binary footer.
-use Slp;
-
-package To::slp;
-
-use strict;
-
-# Mangle the fields as necessary for a stampede package.
-sub FixFields { my ($self,%fields)=@_;
-	# Mangle conffiles to the format they want.
-	$fields{CONFFILES}=~s/\n/:/g;
-	$fields{CONFFILES}=~s/:$//;
-
-	# Use priority optional for alien packages.
-	$fields{PRIORITY}=2;
-
-	# I always use bzip2 as the compression type.
-	$fields{COMPRESSTYPE}=0;
-
-	# Their version of release is a unsigned integer, so I need to 
-	# convert anythnig more compilcated.
-	$fields{RELEASE}=int($fields{RELEASE});
-
-	# I don't try to guess copyright, just use unknown.
-	$fields{COPYRIGHT}=254;
-
-	# I don't try to fill these in with meaningful values.
-	$fields{CONFLICTS}="";
-	$fields{DEPENDS}="";
-	$fields{PROVIDES}="";
-
-	# TODO:
-	$fields{SETUPSTRIPT}=undef;
-
-	# Let's use the current date for this.
-	$fields{DATE}=`date`;
-	chomp $fields{DATE};
-
-	# Pick a compiler version.
-	if ($fields{ARCH} eq 'all') {
-		$fields{COMPILER}=253; # No compiler
-	}
-	else {
-		$fields{COMPILER}=252; # Unknown compiler
-	}
-
-	# Pick a binary format from the translation table.
-	$fields{BINFORMAT}=undef;
-	my $archnum;
-	foreach $archnum (keys %$slp::archtrans) {
-		if ($$slp::archtrans{$archnum} eq $fields{ARCH}) {
-			$fields{BINFORMAT} = $archnum;
-			last;
-		}
-	}
-	if ($fields{BINFORMAT} eq undef) {
-		Alien::Error("Stampede does not appear to support architecure $fields{ARCH} packages.");
-	}
-
-	# This is really the software category; use unknown.
-	$fields{GROUP}=252;
-
-	$fields{SLPKGVERSION}=$slp::footer_version;
-
-	return %fields;
-}
-
-# Do any necessary conversions on the file tree.
-sub Convert { my ($self,$workdir,$nopatch,%fields)=@_;
-	if ($main::generate) {
-		print "Directory $workdir prepared.\n";
-	}
-}
-
-# Passed the available info about the package in a hash, return the name of
-# the slp package that will be made.
-sub GetPackageName { my ($self,%fields)=@_;
-	return "$fields{NAME}-$fields{VERSION}.slp";
-}
-
-# Returns a slp footer in a scalar.
-sub MakeFooter { my %fields=@_;
-	# We cannot use the actual $slp::footer_packstring, becuase it uses
-	# space terminated strings (A) instead of null terminated strings (a).
-	# This is good for decoding, but not for encoding.
-	$_=$slp::footer_packstring;
-	tr/A/a/;
-
-	return pack($_,(
-		$fields{CONFFILES},
-		$fields{PRIORITY},
-		$fields{COMPRESSTYPE},
-		$fields{RELEASE},
-		$fields{COPYRIGHT},
-		$fields{CONFLICTS},
-		$fields{SETUPSCRIPT},
-		$fields{SUMMARY},
-		$fields{DESCRIPTION},
-		$fields{DEPENDS},
-		$fields{PROVIDES},
-		$fields{AUTHOR},
-		$fields{DATE},
-		$fields{COMPILER},
-		$fields{VERSION},
-		$fields{NAME},
-		$fields{BINFORMAT},
-		$fields{GROUP},
-		$fields{SLPKGVERSION},
-	)); 
-}
-
-# Build a slp file.
-# This consists of first generating a .tar.bz2 file, and then appending the
-# footer to it.
-sub Build { my ($self,%fields)=@_;
-	# Note that it's important I use "./*" instead of just "." or something like
-	# that, becuase it results in a tar file where all the files in it start
-	# with "./", which is consitent with how normal stampede files look.
-	Alien::SafeSystem("tar cf - ./* | bzip2 - > ../".$self->GetPackageName(%fields));
-
-	# Now append the footer to that.
-	open (OUT,">>../".$self->GetPackageName(%fields)) ||
-		Alien::Error("Unable to append footer.");
-	print OUT MakeFooter(%fields);
-	close OUT;
-}
-
-# Install the passed slp file.
-sub Install { my ($self,$package)=shift;
-	Alien::SafeSystem("slpi $package");
-}
-
-1