Index: /trunk/example.lisp
===================================================================
--- /trunk/example.lisp	(revision 13)
+++ /trunk/example.lisp	(revision 14)
@@ -39,12 +39,12 @@
 
 (defun scan-all (input)
-  (labels ((scan (input tokens)
-	     (if (> (length input) 0)
-		 (multiple-value-bind (class literal remainder)
-		     (scan-csv input)
+  (labels ((scan (start tokens)
+	     (if (> (length input) start)
+		 (multiple-value-bind (class image remainder)
+		     (scan-csv input start)
 		   (when class
-		     (scan remainder (cons (cons class literal) tokens))))
-		 (reverse tokens))))
-    (scan input '())))
+		     (scan remainder (cons (cons class image) tokens))))
+		 (nreverse tokens))))
+    (scan 0 '())))
 
 (scan-all "no quotes,'a ''quote''',\"another \"\"quote\"\"\"")