https://github.com/garrigue/lablgtk/commit/034d4fbb1f09431048dd4231bf2ba9c69db59e6a
--- a/src/gPack.ml 2020-06-19 09:37:39.000000000 -0600
+++ b/src/gPack.ml 2021-06-18 14:15:02.993282607 -0600
@@ -134,7 +134,7 @@ end
let layout ?hadjustment ?vadjustment ?layout_width ?layout_height =
Layout.make_params []
?hadjustment:(may_map GData.as_adjustment hadjustment)
- ?vadjustment:(may_map GData.as_adjustment hadjustment)
+ ?vadjustment:(may_map GData.as_adjustment vadjustment)
?width:layout_width ?height:layout_height ~cont:(
pack_container ~create:(fun p -> new layout (Layout.create p)))