diff --git a/ChangeLog b/ChangeLog
index 2933bf1..a9d7aa6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-01-25  Peter Mack & Joel Hillacre <support@emergence.com>
+
+	* commit-patch: Added SVN support
+
 2008-12-22  David Caldwell <david@porkrind.org>
 
 	* Released 2.1
diff --git a/commit-patch b/commit-patch
index 69358ab..105f00d 100755
--- a/commit-patch
+++ b/commit-patch
@@ -39,6 +39,16 @@ while (!$vc{name}) {
         $vc{remove}       = 'cvs rm';
         $vc{patcharg}     = '-p0';
         $vc{lsdiffarg}    = [];
+    } elsif (-d "$repo/.svn" && $repo eq '.') {
+        $vc{name}         = 'svn';
+        $vc{diff}         = 'svn diff -x -u';
+        $vc{commit}       = 'svn commit';
+        $vc{message}      = sub { ('-m', $_[0]) };
+        $vc{message_file} = sub { ('-F', $_[0]) };
+        $vc{add}          = 'svn add';
+        $vc{remove}       = 'svn delete';
+        $vc{patcharg}     = '-p0';
+        $vc{lsdiffarg}    = [];
     } elsif (-d "$repo/_darcs") {
         $vc{name}         = 'darcs';
         $vc{diff}         = 'darcs diff -u';
@@ -184,7 +194,7 @@ foreach my $k (keys %clean) { unlink $k }
 
 =head1 NAME
 
-commit-patch - commit patches to I<Darcs>, I<Git>, I<CVS>, or I<Mercurial> repositories
+commit-patch - commit patches to I<Darcs>, I<Git>, I<CVS>, I<SVN>, or I<Mercurial> repositories
 
 =head1 SYNOPSIS
 
@@ -209,7 +219,7 @@ B<vi>. Any files you specify will be passed to your version control's
 diff command.
 
 B<commit-patch> currently supports the following version control systems:
-B<I<Darcs>>, B<I<Git>>, B<I<CVS>>, and B<I<Mercurial>>.
+B<I<Darcs>>, B<I<Git>>, B<I<CVS>>, B<I<SVN>>, and B<I<Mercurial>>.
 
 =head1 OPTIONS
 
@@ -221,7 +231,7 @@ the same as whatever the underlying version control system would do if
 you didn't specify a message name on the command line. That is,
 B<commit-patch> does not interfere with the patch naming process of
 the underlying version control system; I<Darcs> will still ask you
-interactively and I<CVS> will still launch your editor.
+interactively; I<CVS> and I<SVN> will still launch your editor.
 
 B<-F>, B<--message-file>=I<filename> - You can optionally get the
 commit message from a file. This is generally only useful for