diff -rN -cb old-cl-migrations/migrate.lisp new-cl-migrations/migrate.lisp
*** old-cl-migrations/migrate.lisp	2007-04-20 22:27:29.000000000 -0400
--- new-cl-migrations/migrate.lisp	2007-04-20 22:27:29.000000000 -0400
***************
*** 48,54 ****
     (subseq (file-namestring file) 0 (search "-" (file-namestring file)))))
  
  (defun compare-files (file1 file2)
!   (string< (file-namestring file1) (file-namestring file2)))
  
  (defun get-migration-files ()
    "Get all files from the migrations directory, and sort them numerically."
--- 48,54 ----
     (subseq (file-namestring file) 0 (search "-" (file-namestring file)))))
  
  (defun compare-files (file1 file2)
!   (< (get-migration-number file1) (get-migration-number file2)))
  
  (defun get-migration-files ()
    "Get all files from the migrations directory, and sort them numerically."