diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba
index fa190cbd02bf..174987e35971 100644
--- a/wizards/source/formwizard/tools.xba
+++ b/wizards/source/formwizard/tools.xba
@@ -74,6 +74,8 @@ Dim NullValue
 		GetPeerSize() = oPeer.PreferredSize()
 	ElseIf CurFieldType = com.sun.star.sdbc.DataType.BIT Then
 		GetPeerSize() = oPeer.PreferredSize()
+	ElseIf CurFieldType = com.sun.star.sdbc.DataType.BOOLEAN Then
+		GetPeerSize() = oPeer.PreferredSize()
 	ElseIf CurFieldType = com.sun.star.sdbc.DataType.DATE Then
 		oControl.Model.Date = Date
 		GetPeerSize() = oPeer.PreferredSize()
@@ -344,4 +346,4 @@ Dim UIName as String
 	next i
 	GetFilterName() = UIName
 End Function
-</script:module>
\ No newline at end of file
+</script:module>