diff --git a/lib/WebGUI/Form/Asset.pm b/lib/WebGUI/Form/Asset.pm
index 07a90277a..6382b746b 100644
--- a/lib/WebGUI/Form/Asset.pm
+++ b/lib/WebGUI/Form/Asset.pm
@@ -87,12 +87,12 @@ sub definition {
 
 =head2  getDatabaseFieldType ( )
 
-Returns "VARCHAR(22) BINARY".
+Returns "CHAR(22) BINARY".
 
 =cut 
 
 sub getDatabaseFieldType {
-    return "VARCHAR(22) BINARY";
+    return "CHAR(22) BINARY";
 }
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Form/DatabaseLink.pm b/lib/WebGUI/Form/DatabaseLink.pm
index 21770549a..931fa56e3 100644
--- a/lib/WebGUI/Form/DatabaseLink.pm
+++ b/lib/WebGUI/Form/DatabaseLink.pm
@@ -110,12 +110,12 @@ sub definition {
 
 =head2  getDatabaseFieldType ( )
 
-Returns "VARCHAR(22) BINARY".
+Returns "CHAR(22) BINARY".
 
 =cut 
 
 sub getDatabaseFieldType {
-    return "VARCHAR(22) BINARY";
+    return "CHAR(22) BINARY";
 }
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Form/Group.pm b/lib/WebGUI/Form/Group.pm
index ef67284c5..ab50921f1 100644
--- a/lib/WebGUI/Form/Group.pm
+++ b/lib/WebGUI/Form/Group.pm
@@ -102,12 +102,12 @@ sub definition {
 
 =head2  getDatabaseFieldType ( )
 
-Returns "VARCHAR(22) BINARY".
+Returns "CHAR(22) BINARY".
 
 =cut 
 
 sub getDatabaseFieldType {
-    return "VARCHAR(22) BINARY";
+    return "CHAR(22) BINARY";
 }
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Form/Guid.pm b/lib/WebGUI/Form/Guid.pm
index bb82a80ec..b12340ac3 100644
--- a/lib/WebGUI/Form/Guid.pm
+++ b/lib/WebGUI/Form/Guid.pm
@@ -41,12 +41,12 @@ The following methods are specifically available from this class. Check the supe
 
 =head2  getDatabaseFieldType ( )
 
-Returns "char(22) binary"
+Returns "CHAR(22) BINARY"
 
 =cut
 
 sub getDatabaseFieldType {
-    return "char(22) binary";
+    return "CHAR(22) BINARY";
 }
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Form/LdapLink.pm b/lib/WebGUI/Form/LdapLink.pm
index 1c9e26f86..ad780c80f 100644
--- a/lib/WebGUI/Form/LdapLink.pm
+++ b/lib/WebGUI/Form/LdapLink.pm
@@ -117,12 +117,12 @@ sub definition {
 
 =head2  getDatabaseFieldType ( )
 
-Returns "TEXT".
+Returns "CHAR(22) BINARY".
 
 =cut 
 
 sub getDatabaseFieldType {
-    return "TEXT";
+    return "CHAR(22) BINARY";
 }
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Form/SelectRichEditor.pm b/lib/WebGUI/Form/SelectRichEditor.pm
index 07d688c28..25cb8e07a 100644
--- a/lib/WebGUI/Form/SelectRichEditor.pm
+++ b/lib/WebGUI/Form/SelectRichEditor.pm
@@ -79,6 +79,18 @@ sub definition {
 
 #-------------------------------------------------------------------
 
+=head2  getDatabaseFieldType ( )
+
+Returns "CHAR(22) BINARY".
+
+=cut 
+
+sub getDatabaseFieldType {
+    return "CHAR(22) BINARY";
+}
+
+#-------------------------------------------------------------------
+
 =head2 getName ( session )
 
 Returns the human readable name of this control.
diff --git a/lib/WebGUI/Form/Template.pm b/lib/WebGUI/Form/Template.pm
index 7d71c9b0e..71cb0120e 100644
--- a/lib/WebGUI/Form/Template.pm
+++ b/lib/WebGUI/Form/Template.pm
@@ -103,12 +103,12 @@ sub definition {
 
 =head2  getDatabaseFieldType ( )
 
-Returns "VARCHAR(22) BINARY".
+Returns "CHAR(22) BINARY".
 
 =cut 
 
 sub getDatabaseFieldType {
-    return "VARCHAR(22) BINARY";
+    return "CHAR(22) BINARY";
 }
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Form/Workflow.pm b/lib/WebGUI/Form/Workflow.pm
index c07380dc9..e3a39dc94 100644
--- a/lib/WebGUI/Form/Workflow.pm
+++ b/lib/WebGUI/Form/Workflow.pm
@@ -106,12 +106,12 @@ sub definition {
 
 =head2  getDatabaseFieldType ( )
 
-Returns "VARCHAR(22) BINARY".
+Returns "CHAR(22) BINARY".
 
 =cut 
 
 sub getDatabaseFieldType {
-    return "VARCHAR(22) BINARY";
+    return "CHAR(22) BINARY";
 }
 
 #-------------------------------------------------------------------