diff --git a/src/engine/gw-engine-spec.scm b/src/engine/gw-engine-spec.scm
index b764ea2d53..14075c29fe 100644
--- a/src/engine/gw-engine-spec.scm
+++ b/src/engine/gw-engine-spec.scm
@@ -467,6 +467,14 @@ gnc:split-get-corr-account-full-name in src/scm/report-utilities.scm")
  "Find the split on the other side of the transaction, and return the 
 code of its account")
 
+(gw:wrap-function
+ ws
+ 'gnc:split-get-lot
+ '<gnc:Lot*>
+ "xaccSplitGetLot"
+ '((<gnc:Split*> s))
+ "Return the LOT of Split s.")
+
 (gw:wrap-function
  ws
  'gnc:transaction-get-guid