diff --git a/lib/SQL/Translator/Parser/Oracle.pm b/lib/SQL/Translator/Parser/Oracle.pm
index 66a885c7..388452b7 100644
--- a/lib/SQL/Translator/Parser/Oracle.pm
+++ b/lib/SQL/Translator/Parser/Oracle.pm
@@ -489,7 +489,17 @@ parens_name_list : '(' NAME(s /,/) ')'
 field_meta : default_val
     | column_constraint
 
-default_val  : /default/i VALUE
+default_val  : 
+    /default/i CURRENT_TIMESTAMP
+    {
+        my $val =  $item[2];
+        $return =  {
+            supertype => 'constraint',
+            type      => 'default',
+            value     => $val,
+        }
+    }
+    | /default/i VALUE
     {
         my $val =  $item[2];
         $return =  {
@@ -616,6 +626,11 @@ VALUE : /[-+]?\d*\.?\d+(?:[eE]\d+)?/
     | /null/i
     { 'NULL' }
 
+# always a scalar-ref, so that it is treated as a function and not quoted by consumers
+CURRENT_TIMESTAMP :
+      /current_timestamp(\(\))?/i { \'CURRENT_TIMESTAMP' }
+    | /now\(\)/i { \'CURRENT_TIMESTAMP' }
+    
 END_OF_GRAMMAR
 
 sub parse {
diff --git a/t/15oracle-parser.t b/t/15oracle-parser.t
index 8cae44a7..ee610fb3 100644
--- a/t/15oracle-parser.t
+++ b/t/15oracle-parser.t
@@ -7,7 +7,7 @@ use SQL::Translator;
 use SQL::Translator::Schema::Constants;
 use Test::SQL::Translator qw(maybe_plan);
 
-maybe_plan(99, 'SQL::Translator::Parser::Oracle');
+maybe_plan(103, 'SQL::Translator::Parser::Oracle');
 SQL::Translator::Parser::Oracle->import('parse');
 
 my $t   = SQL::Translator->new( trace => 0 );
@@ -34,6 +34,7 @@ my $sql = q[
         trait_symbol            VARCHAR2(100 BYTE)   NOT NULL,
         trait_name              VARCHAR2(200 CHAR)   NOT NULL,
         qtl_trait_category_id   NUMBER(11)      NOT NULL,
+        trait_date              DATE            DEFAULT CURRENT_TIMESTAMP NOT NULL,
         UNIQUE ( trait_symbol ),
         UNIQUE ( trait_name ),
         FOREIGN KEY ( qtl_trait_category_id ) REFERENCES qtl_trait_category
@@ -179,7 +180,7 @@ is( $t2->name, 'qtl_trait', 'Table "qtl_trait" exists' );
 is( $t2->comments, 'foo bar comment', 'Comment "foo bar" exists' );
 
 my @t2_fields = $t2->get_fields;
-is( scalar @t2_fields, 4, '4 fields in table' );
+is( scalar @t2_fields, 5, '5 fields in table' );
 
 my $t2_f1 = shift @t2_fields;
 is( $t2_f1->name, 'qtl_trait_id', 'First field is "qtl_trait_id"' );
@@ -217,6 +218,16 @@ is( $f4_fk->reference_table, 'qtl_trait_category',
 is( join(',', $f4_fk->reference_fields), 'qtl_trait_category_id',
     'FK references field "qtl_trait_category_id"' );
 
+my $t2_f5 = shift @t2_fields;
+is( $t2_f5->name, 'trait_date', 'Fifth field is "trait_date"');
+is( $t2_f5->data_type, 'DATE', 'Field is a timestamp' );
+is( $t2_f5->is_nullable, 0, 'Field cannot be null' );
+is_deeply(
+    $t2_f5->default_value,
+    \'CURRENT_TIMESTAMP',
+    'Field has correct default value'
+);
+
 my @t2_constraints = $t2->get_constraints;
 is( scalar @t2_constraints, 4, '4 constraints on table' );