Index: /trunk/ccl/lib/db-io.lisp
===================================================================
--- /trunk/ccl/lib/db-io.lisp	(revision 335)
+++ /trunk/ccl/lib/db-io.lisp	(revision 336)
@@ -432,4 +432,5 @@
   (:struct dbm-constant
    (:class (:unsigned 32))
+   (:pad (:unsigned 32))
    (:value
     (:union nil
@@ -1240,4 +1241,6 @@
   (let* ((total-bits 0)
          (overall-alignment 1)
+	 #+poweropen-target
+	 (first-field-p t)
          (kind (foreign-record-type-kind rtype)))
     (dolist (field parsed-fields)
@@ -1247,4 +1250,11 @@
 	     (alignment (if alt-align
 			  (min natural-alignment alt-align)
+			  #+poweropen-target
+			  (if first-field-p
+			    (progn
+			      (setq first-field-p nil)
+			      natural-alignment)
+			    (min 32 natural-alignment))
+			  #-poweropen-target
 			  natural-alignment)))
         (unless bits