===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm	2010/01/26 04:30:13	1.13
+++ todotxt/Text-Todo-REST-API/lib/Text/Todo/REST/API.pm	2010/01/26 05:05:00	1.14
@@ -1,6 +1,6 @@
 package Text::Todo::REST::API;
 
-# $AFresh1: API.pm,v 1.12 2010/01/26 03:51:49 andrew Exp $
+# $AFresh1: API.pm,v 1.13 2010/01/26 04:30:13 andrew Exp $
 
 use warnings;
 use strict;
@@ -114,6 +114,10 @@
 
         $options{list}
             = defined $options{list} ? $options{list} : 'todo_file';
+ 
+        if ($options{list} !~ /\Q $options{suffix} \E$/xms) {
+            $options{list} .= $options{suffix};
+        }
 
         if ( $options{format} ) {
             $format_of{ ident $self } = $options{format};
@@ -174,8 +178,6 @@
 
         if ( $options{list} ) {
             $options{action} ||= 'list';
-
-            my $suffix = $self->_suffix;
 
             if ( ( lc $options{list} ) eq 'files' ) {
                 $options{action} = lc $options{list};