diff --git a/kernel/CObject.st b/kernel/CObject.st
index 7db8d0df3..f757699e9 100644
--- a/kernel/CObject.st
+++ b/kernel/CObject.st
@@ -1541,6 +1541,13 @@ CByte subclass: CBoolean [
     <category: 'Language-C interface'>
     <comment: 'I return true if a byte is not zero, false otherwise.'>
 
+    CBoolean class >> type [
+	"Answer a CType for the receiver"
+
+	<category: 'conversion'>
+	^CBooleanType
+    ]
+
     value [
 	"Get the receiver's value - answer true if it is != 0, false if it is 0."
 
diff --git a/tests/cobjects.ok b/tests/cobjects.ok
index bfaaa550a..c90ee87ab 100644
--- a/tests/cobjects.ok
+++ b/tests/cobjects.ok
@@ -163,3 +163,7 @@ $2
 $3
 $<0>
 returned value is nil
+
+Execution begins...
+true
+returned value is nil
diff --git a/tests/cobjects.st b/tests/cobjects.st
index 9aa1a5175..79c95a8de 100644
--- a/tests/cobjects.st
+++ b/tests/cobjects.st
@@ -238,5 +238,12 @@ Eval [
     c free.
 ]
 
+" Play with conversion for Boolean"
+Eval [
+    c := CBoolean value: true.
+    c value printNl.
+    c free.
+]
+
 " ### need a lot more!"