diff --git a/source/tabletools.pas b/source/tabletools.pas
index 9c389b31..90bd6c4a 100644
--- a/source/tabletools.pas
+++ b/source/tabletools.pas
@@ -985,9 +985,9 @@ begin
                 if Data.IsNull(i) then
                   Row := Row + 'NULL'
                 else case Data.DataType(i).Category of
-                  dtcText, dtcTemporal: Row := Row + esc(Data.Col(i));
+                  dtcInteger, dtcReal: Row := Row + Data.Col(i);
                   dtcBinary: Row := Row + '_binary 0x' + BinToWideHex(Data.Col(i));
-                  else Row := Row + Data.Col(i);
+                  else Row := Row + esc(Data.Col(i));
                 end;
                 if i<Data.ColumnCount-1 then
                   Row := Row + ', ';