diff --git a/ChangeLog b/ChangeLog
index 454ec5fd19..0786c7c87b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,10 @@
 	  This function will clear a sub-tree out of a kvp_frame.	  
 
 	* kvp-scm: implement KVP_TYPE_FRAME kvp-values
+
+	* gw-engine-spec.scm: wrap gnc_session_get_url(), in preparation
+	  for changing the book-opened-hook and book-closed-hook
+	  prototypes.
 	
 2002-07-05  Derek Atkins  <derek@ihtfp.com>
 
diff --git a/src/engine/gw-engine-spec.scm b/src/engine/gw-engine-spec.scm
index 2532558292..a6fbd5b965 100644
--- a/src/engine/gw-engine-spec.scm
+++ b/src/engine/gw-engine-spec.scm
@@ -1414,6 +1414,14 @@ when no longer needed.")
  '((<gnc:Session*> session))
  "Check for a pending error.")
 
+(gw:wrap-function
+ ws
+ 'gnc:session-get-url
+ '(<gw:mchars> callee-owned const)
+ "gnc_session_get_url"
+ '((<gnc:Session*> session))
+ "Return the URL of the opened session.")
+
 (gw:wrap-function
  ws
  'gnc:session-pop-error