diff --git a/source/table_editor.pas b/source/table_editor.pas
index 3c28ab70..9fc20a38 100644
--- a/source/table_editor.pas
+++ b/source/table_editor.pas
@@ -993,7 +993,7 @@ begin
       case Col.DefaultType of
         cdtNothing:                 CellText := 'No default';
         cdtText, cdtTextUpdateTS: begin
-          if Col.DataType.Category = dtcInteger then
+          if Col.DataType.Category in [dtcInteger, dtcReal] then
             CellText := Col.DefaultText
           else
             CellText := esc(Col.DefaultText);