diff --git a/dbmigrations.cabal b/dbmigrations.cabal
--- a/dbmigrations.cabal
+++ b/dbmigrations.cabal
@@ -1,5 +1,5 @@
 Name:                dbmigrations
-Version:             0.9
+Version:             0.9.1
 Synopsis:            An implementation of relational database "migrations"
 Description:         A library and program for the creation,
                      management, and installation of schema updates
diff --git a/src/Database/Schema/Migrations/Migration.hs b/src/Database/Schema/Migrations/Migration.hs
--- a/src/Database/Schema/Migrations/Migration.hs
+++ b/src/Database/Schema/Migrations/Migration.hs
@@ -28,6 +28,6 @@
             , mId = theId
             , mApply = "(Apply SQL here.)"
             , mRevert = Nothing
-            , mDesc = Nothing
+            , mDesc = Just "(Describe migration here.)"
             , mDeps = []
             }
diff --git a/src/Moo/CommandHandlers.hs b/src/Moo/CommandHandlers.hs
--- a/src/Moo/CommandHandlers.hs
+++ b/src/Moo/CommandHandlers.hs
@@ -10,6 +10,7 @@
 import Data.Maybe ( isJust )
 import Control.Monad.Reader ( asks )
 import System.Exit ( exitWith, ExitCode(..), exitSuccess )
+import qualified Data.Time.Clock as Clock
 import Control.Monad.Trans ( liftIO )
 
 import Database.Schema.Migrations.Store hiding (getMigrations)
@@ -44,7 +45,10 @@
 
     case result of
       True -> do
-               status <- createNewMigration store $ (newMigration migrationId) { mDeps = deps }
+               now <- Clock.getCurrentTime
+               status <- createNewMigration store $ (newMigration migrationId) { mDeps = deps
+                                                                               , mTimestamp = Just now
+                                                                               }
                case status of
                  Left e -> putStrLn e >> (exitWith (ExitFailure 1))
                  Right _ -> putStrLn $ "Migration created successfully: " ++