=== modified file 'src/tools/DBD/Output.pm'
--- src/tools/DBD/Output.pm     2010-04-15 16:32:56 +0000
+++ src/tools/DBD/Output.pm     2012-08-10 16:39:30 +0000
@@ -48,7 +48,8 @@
             printf $out "    field(%s, %s) {\n",
                 $field->name, $field->dbf_type;
             while (my ($attr, $val) = each %{$field->attributes}) {
-                $val = "\"$val\"" if $val !~ m/^[a-zA-Z0-9_\-+:.\[\]<>;]*$/;
+                $val = "\"$val\"" if $val !~ m/^$RXname$/ox
+                    || $attr eq 'prompt' || $attr eq 'initial';
                 printf $out "        %s(%s)\n", $attr, $val;
             }
             print $out "    }\n";