diff --git a/src/engine/gw-engine-spec.scm b/src/engine/gw-engine-spec.scm
index b64f8d9d23..b764ea2d53 100644
--- a/src/engine/gw-engine-spec.scm
+++ b/src/engine/gw-engine-spec.scm
@@ -556,6 +556,14 @@ value.  It is meant to be a short descriptive phrase.")
  '((<gnc:Transaction*> transaction))
  "return a string indicating reason for voiding")
 
+(gw:wrap-function
+ ws
+ 'gnc:transaction-order
+ '<gw:int>
+ "xaccTransOrder"
+ '((<gnc:Transaction*> ta) (<gnc:Transaction*> tb))
+ "Return an integer for ta,tb ordering.  <0 is ta is before tb, >0 if ta is after tb")
+
 (gw:wrap-function
  ws
  'gnc:split-void-former-amount