--- manager.lisp~	2020-01-10 08:12:56.298651545 -0800
+++ manager.lisp	2020-01-11 11:28:08.193837006 -0800
@@ -392,8 +392,8 @@
     (when (and (wm-size-hints-x hints) (wm-size-hints-y hints)) 
       (unless (wm-size-hints-user-specified-position-p hints)
 	(setf (ldb (byte 1 2) flags) 1))
-      (setf (aref vector 1) (wm-size-hints-x hints)
-	    (aref vector 2) (wm-size-hints-y hints)))
+      (setf (aref vector 1) (int32->card32 (wm-size-hints-x hints))
+	    (aref vector 2) (int32->card32 (wm-size-hints-y hints))))
     (when (and (wm-size-hints-width hints) (wm-size-hints-height hints))
       (unless (wm-size-hints-user-specified-size-p hints)
 	(setf (ldb (byte 1 3) flags) 1))