Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 5947)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 5948)
@@ -1702,8 +1702,8 @@
     (def-foreign-type nil
         (struct :cdb-datum
-                (data (* t))
-                (size (:unsigned 32))))
+                (:data (* t))
+                (:size (:unsigned 32))))
     (def-foreign-type nil
-        (:struct dbm-constant
+        (:struct :dbm-constant
                  (:class (:unsigned 32))
                  (:pad (:unsigned 32))